Раскодировать 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])) ;
    }
}

Правда, это именно для xxd, а не hexdump

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

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

гениально! никто бы не додумался. (каг до одного так и до другого :)

Жжоте? man xxd?

Точно :) Этот вариант гораздо лучше

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