Select Code to Download

  my ($k, @f) = ($h =~ m!<td.*?>(required_\d+_\d+.txt)</td>\s+(<td.*?>
+(.+?)</td>\s+)+</tr>!m);