my $string = '39860000N000'; my $hexlen = sprintf '%4.4x', length $string; $hexlen =~ s/ ( \p{Hex}{2} ) /\\x$1/gx; print "Length of ($string) in hex: ($hexlen)\n";