in reply to Splitting a string in Perl

print join ('*', unpack 'A4x7A26x8A*', '0000       21 74 63 5f 37 5f 3
+1 5f 36        !tc_7_1_6');

[download]


holli, /regexed monk/

In Section Seekers of Perl Wisdom