Select Code to Download

@tmp = <FILE>;
foreach $line (@tmp) {
  chop $line;
...
foreach $key (keys %HASH) {
  print "<some html>$key - $HASH{$key}</some html>\n";
}

while (<FILE>) {
    m/(^.*)\t(.*$)/;
    print "<some html>$1 - $2</some html>\n";
}