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