$packed = pack 'C/A* N d', 'ewh2442', '018234', 35.67;;

print for unpack 'C/A* N d', $packed;;
ewh2442
18234
35.67