use strict;
my $string = q'hier steht der text den ich in $1 haben möchte# Ab hier soll er in $2 aufgenommen werden # gelle';
print "Versuch mit minimalen Patternmatching:\n";
$string =~ /^(.+?)\s*#\s*(.*)/;
print "\$1: $1\n";
print "\$2: $2\n";
print "----\n";
print "Versuch mit maximalen Pattermatching\n";
$string =~ /^(.+)\s*#\s*(.*)/;
print "\$1: $1\n";
print "\$2: $2\n";
print "----\n";