D:\>perl -wle "print '#' . unpack('A*', 'abc   ') . '#';"
#abc#

D:\>perl -wle "print '#' . unpack('A*', 'abc   d') . '#';"
#abc   d#