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