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