while( $str =~ /<img\s+.*?src=(['"])([^\1]+?)\1.*?>/g ) { # matcht Angaben in single und double quotes
      print "$2\n";
  }

  # oder 
  # my(@treffer) = $str =~ /MUSTER/g;