note
choroba
You can create a regex that matches any of the reversed words:<c>
#!/usr/bin/perl
use warnings;
use strict;
my @words = qw(mamy dady bal foo bar ymamaa arabic);
my $regex = join '|', map scalar reverse, @words;
$regex = qr/$regex/;
print "$_\n" for grep /$regex/, @words;
</c>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1014021
1014021