if ( my ( $anrede ) = $text =~ m/Sehr geehrter? (\S+)/ ) {
  print "Anrede: $anrede\n";
}