Select Code to Download

# if any non-english language chara in the line
if ( $line =~ /[[:non-english_chara_class:]]/g ) {
...
elsif ( $line =~ /[[:garbage_chara_class:]]/g ) {
    # do some filtering
}

no warnings "experimental::regex_sets";
my @expressions = (
...
french: voilà: a word with an accent grave
ascii: this is plain ascii
unknown: gräßliches Tröten