hexception

hexception

#!/usr/bin/env perl

# Created: 2017-08-13
# Author: Royce Williams / tychotithonus
# License: public domain

while (<>) {
    chomp;

    # Convert input to $HEX[] notation
    my $hex = '$HEX[' . unpack("H*", $_) . ']' . "\n";

    # Convert HEX notation to hex ... again (hexception!)
    print unpack("H*", $hex) . "\n";

}