path_info仕様にする時

$FORM{'MESSAGE'} =~ s/>>([\d]+)-([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$2" target="_blank">>>$1-$2<\/a>/g;
$FORM{'MESSAGE'} =~ s/^>>([\d]+)/<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$1&to=$1&nofirst=true" target="_blank">>>$1<\/a>/g;
$FORM{'MESSAGE'} =~ s/([^>])>>([\d]+)/$1<a href="..\/test\/read.cgi?bbs=$FORM{'bbs'}&key=$FORM{'key'}&st=$2&to=$2&nofirst=true" target="_blank">>>$2<\/a>/g;

この辺りどう変えればいいのかご意見きぼんぬヽ(`Д´)ﾉ