print "%d\n", $string; #### printf "%d\n", hex( $string ); #### sub myHex { no warnings 'digit'; hex( $_[0] }; } printf "%d\n", myHex( $string );