$string = "teststring"; sprintf "%s%n", $string, $len; print "$len";