if (qq|<td class="c3" nowrap>(.*)</td>|) {
　$letter = $1;
　print "$letter\n";
}

これで $1が取得できない理由はなぜでしょうか。
if文の条件にはマッチしてトラップされているのですが、$letterの中身は
ヌルなのです。