>>415 こ、今度だけだぞ
my $str = "#1234（1234は3〜6桁の数字）";
(my $tr = $str )=~ s!(#(\d{3,6}))!sprintf("\"http:/hoge.com/hoge/$2\">$1</a>")!ge;
print "$str ->\n$tr\n";