$foo = '&H3A16001E';
$foo =~ s/ \&H / 0x /x;
$num = eval $foo;