Select Code to Download

use v5.12.0;
use warnings;
...
    print my $c = substr $s, $i, 1;
    say " is text" if utf8::is_utf8($c);
}