@Files =( "filename=merilyn14.jpg.jpeg", "filename=...)

$file = "filename=merilyn14.jpg.jpeg"

##</code><code>##

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

##</code><code>##

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