$record = "abcdefghk     Year Sales: 0123456.01     peter  x193v 20i39 ";
for (unpack "A9 A17 A10 A5 A6 A1 A*", $record) {
        $i++;
        print $_,"\n" if $i%2;
        }