my $foo = 'test      ';
$foo =~ s/ $//g;
print "\$foo = >$foo<\n";