my $s = "asdf         ";
print unpack "A*", $s;