if ( length($string) > $string =~ tr/\x00-\x7f// ) {
      $string = decode( 'utf8', $string );
   }

##</code><code>##

   if ( $string =~ /[\x80-\xff]/ ) {
      $string = decode( 'utf8', $string );
   }