Select your favorite languages :
- Or search :
my @strings = ('ᾲ στο διάολο', 'ὰι στο διάολο', 'Ὰͅ ΣΤΟ ΔΙΆΟΛΟ', 'ᾺΙ ΣΤΟ ΔΙΆΟΛΟ'); my @indices = ( [0,1], [0,2], [0,3], [1,0], [1,2], [1,3], [2,0], [2,1], [2,3], [3,0], [3,1], [3,2] ); for my $tuple (@indices) { ok $strings[$tuple->[0]] =~ qr"\Q$strings[$tuple->[1]]"i; } done_testing;
daxim