$jo = "Mary had a little lamb     ";
print $jo . "blah\n";

$jo =~ s/\s*$//;               # get rid of the spaces
print $jo . "blah\n";