Select Code to Download

my $letters = '[a-zA-Z]'; # try - maybe the character range will work 
+for you. It works in Cyr-1521, but does not in KOI8-R
my @wordpatterns = map { qr/(?<!$letters)(\Q$_\E$letters*)/ } qw(tak h
+et hen toj);
...
        my $count_words = ($next_line =~ s/$pattern/>$1</gi);
    }
}