Раскодировать hexdump

Решил. Простейший фильтр:

#!/usr/bin/perl

use strict;

my @hexes;
my @bytes;

while ( $_=<> ) {
    @hexes = ( $_ =~ /[0-9A-Fa-f]{4}\s/sg);
    while ( @hexes ) {
        $_=shift @hexes;
        @bytes = ( $_ =~ /^(..)(..)\s/ );
        printf ("%c%c", hex($bytes[0]), hex($bytes[1])) ;
    }
}

Если кому понадобится, для hexdump поменять байты местами

printf ("%c%c", hex($bytes[1]), hex($bytes[0])) ;

Просто когда понял, что натворил с файлом, изучение xxd решил отложить до решения проблемы =) Где был мой мозг?