(1)if ($line =~ /(.+)\s*\(\)\xA1\s*(.+\.txt)/) {
(2)  $file = $1;
(3)  $file =~ s/\s*$//;
(4)  print OUT "<a href=\"$2\">$file</a><br>\n"
}