Select Code to Download

while ($_myfile[$i] !~ /filename="(.*)\.(.*)"/)
{
...
   print $args2;
   $i++;
}

while ($_myfile[$i] =~ /filename="(.*)\.(.*)"/)
{
...
   print $args2;
   $i++;
}