...
if (/^(.+?)\s*#\s*(.*)/) 
{
...

if (
/
^    # Zusicherung dass das Musster auf den Anfang der Zeichenkette passt
(.+?)# matcht einen oder mehr Character (minimales Matching) und Captured diese in $1
\s*  # matcht null oder mehr Whitespaces (maximales Matching)
\#   # matcht #
\s*  # matcht null oder mehr Whitespaces (maximales matching)
(.*) # matcht null oder mehr Character(maximales matching) und captured diese in $2
/x   # erlaubt diese Schreibweise
) {
...

(.+?)# matcht einen oder mehr Character (minimales Matching) und Captured diese in $1

(.+?)# matcht einen oder mehr Character (minimales Matching) und Captured diese in $1

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";

$string = qq~<tag1>text1</tag1><tag1>text2</tag1>~;
if ($string =~ m|<tag1>(.+)</tag1>|) {
  print "VIEL: $1\n";
}
if ($string =~ m|<tag1>(.+?)</tag1>|) {
  print "WENIG: $1\n";
}