foreach my $file (@Files)
      {
          if ($file =~ m/filename=(\d.*?)([a-zA-Z].*?)\.j/i)