Select Code to Download

use utf8;
use feature 'unicode_strings';
...
my $string2 = "šin";
print "$string1 matches $string2 ? ";
print $string1 =~ /$string2/i ? 'matched' : 'no match';