$txt=~ s!\s*$!!; # remove all whitespace