or download this
johngg@shiraz:~/perl/Monks$ perl -Mstrict -Mwarnings -MList::MoreUtils
+=mesh -E '
my $delim = qq{\x01};
...
00000030 01 46 01 41 67 65 01 33 31 01 4a 6f 62 01 52 65 |.F.Age.31
+.Job.Re|
00000040 73 65 61 72 63 68 65 72 0a |searcher.
+|
00000049