arg.pl '\x61' '\x41'

$arg_2 =~ s@\\x([0-9a-fA-F]+)@chr hex $1@ge;