Select Code to Download

use strict;
use warnings;
...
    my $status = ( utf8::is_utf8( $str )) ? 'utf8' : 'not utf8';
    printf( " %d -- check_string: input %s is %s\n", $num, $str, $stat
+us );
}