sub byte_length {
    # depends on bugs
    no utf8;
    my ($string) = @_;
    my $counter;
    $counter++ while $string =~ s/.//s;
    return $counter;
}

sub has_multibytes {
    my ($string) = @_;
    return length($string) != byte_length($string);
}

##</code><code>##

Lbh ebgngrq guvf grkg naq abj lbh pna ernq vg. Fb jung? :)   -- Whreq