broquaint is pretty much right on. Given your example input, it'll work.

As to removing spaces, the following will do it:

my $str   = "Bob ";
$str =~ s/\s$//; # or s/ $//;

print "|$str|\n";
[download]