use List::AllUtils qw(first);
first { $_ gt "\xff" } split //, $string_of_characters