$line =~ m:\<img.+src=".+/(.*\.JPG)".+alt=("[^"]*").+title=("[^"]*"): 
  or die "Zeile '$line' hat nicht das erwartete Format";