- or download this
###########################################################
...
- or download this
while ($line =~ /($word)/g){
- or download this
while ($line =~ /($word('$word)?)/g){
- or download this
my $word = qr/(?<!\p{Alpha})[a-zA-Z\x{131}ü\x{11F}\x{15F}çö\x{130}\x{1
+5E}Ö\x{11E}Ü]+(?!\p{Alpha})/;