bigsid has asked for the wisdom of the Perl Monks concerning the following question:
use strict; open (FH, 'hex_file.txt') or die $!; while (<FH>) { s/([a-f0-9]{2})/hex($1)/egi; print; } [download]