print pack 'i/A*', "1;SS\015"
♣   1;SS
print unpack 'A*', pack 'i/A*', "1;SS\015"
♣   1;SS
print unpack 'i/A*', pack 'i/A*', "1;SS\015"
1;SS