print join ('*', unpack 'A4x7A26x8A*', '0000 21 74 63 5f 37 5f 3 +1 5f 36 !tc_7_1_6'); [download]
In reply to Re: Splitting a string in Perl by holli in thread Splitting a string in Perl by gzayzay