$name =~ s/\s+$//;

##</code><code>##

use Data::Dumper;
$Data::Dumper::Useqq = 1;

print Dumper $name;