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