my $str = "text   "; # text mit 3 Leerzeichen am Ende

# gierig schnappt sich auch die Whitespaces am Ende
if ( $str =~ m/(.+)\s*$/ ) {
  print ">$1<\n";
}
# nicht gierig schnappt sich die Whitespaces am Ende nicht
if ( $str =~ m/(.+?)\s*$/ ) {
  print ">$1<\n";
}