ごめんなさい。ファイルの保存を忘れてたみたいで、
>>321で実行できました。
$test = qq(<a href="./test.html">ほげほげ</a>);
$test =~ s/<a\shref="([^"]+)">(.+)<\/a>/<a\shref="$1\?n=1\&test\.html">$2<\/a>/;
print $test;
で、結果は
<ashref="./test.html?n=1&test.html">ほげほげ</a>
となってしまいましたが、
$test =~ s/<a\shref="([^"]+)">(.+)<\/a>/<a href="\.\/hoge\.cgi\?n=1\&p=$1">$2<\/a>/;
とする事で、目的の
<a href="./hoge.cgi?n=1&p=./test.html">ほげほげ</a>
に変換する事ができました。ありがとうございます。