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

##</code><code>##

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