my $string =~ s%\s+$%%g;