In die Variable $beginn schreibt Perl "(?-xism:^)" ist das so richtig???