if ( $string =~ m/(match.*)/ ) {
  print "Treffer: $1\n";
}