#!/usr/bin/perl

# convert ascii to and from hex
# jason t <codez(at)ahab.com>

if ($ARGV[0] eq "-d"){
    while(<STDIN>){
        s/([0-9a-fA-F]{2})/pack("H2",$1)/ge;
        print;
    }
} else {
    while(<STDIN>){
        s/(.?)/unpack("H2",$1)/ge;
        print;
    }
}