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

##</code><code>##

$txt=~ s![^A-Za-z0-9]*$!!; # remove everything except characters and digits at the end