use strict; 

open (DUMP, "|cat -v");
select(DUMP);
$| = 1;

while (<>) {
        if (/^\s/) {
                chop;
                s/\s//g;
                while ($_) {
                        my $hex;
                        ($hex, $_) = /^(..)(.*)$/;
                        my $byte = hex($hex);
                        print pack("c", $byte);
                }
        } else {
                print "\n", "-"x74, "\n\n";
        }
}
close(DUMP);