use v5.14; say unpack( 'x15A2' ) =~ s/^\s+|\s+$//gr while ; __DATA__ 1234 2321 0 45 1st 2122 sdsa 0 0 34 2313 dsad 43 2nd 1232 ffff 0 0 1st 3213 sadf 0 34 2133 dada 0 2nd