解決せぬまま、朝になってしまいました。
すみません、一つ質問させてください。

HTMLファイル内のアンカータグで指定されているURLを全てエンコードして返すコードを書きましたが、どうも思う
ように動いてくれません。問題のコードは下記となっております。
-----------------------------------------------------
while(<FH>){
　　if($_ =~ /\<a.*?href.*?\=.*?\>/ig){
　　　　my $tmp = $_;
　　　　while($tmp =~ /(.*\<a.*?href.*?\=)(.*?)(\>.*?)(\<|\n)/ig){
　　　　　　my $tmp1 = $1; my $tmp3 = $3;
　　　　　　my $tmp2 = main::url_encode($2);#エンコードルーチン
　　　　　　$tmp2 =~ s/\%20//g; $tmp2 =~ s/\%22/\"/g;
　　　　　　$index_file .= $tmp1 . $tmp2 . $tmp3;
　　　　}
　　}
　　else{
　　　　$index_file .= $_;
　　}
}
-----------------------------------------------------
1行に2つ以上のアンカータグがあった場合を考えてwhileを使用しておりますが、その部分の正規表現に問題が
あるというところまでわかっていながら、全く前進せぬまま朝になってしまいました。情けないです。
ここの正規表現の区切りとなるものが曖昧なことから、うまく認識してくれず、整形後のHTMLファイルがおかしく
なってしまっているのだと思われます。

もし宜しければ、教えてください。
すみませんが宜しくお願いいたします。