Select Code to Download

use utf8;
use strict;
...
my $s2 = "short_japanese_text_in_utf8";
print index($s1, $s2)."\n";
print "found\n" if $s1 =~ /$s2/;

use strict;
use utf8;
...
  print "found\n" if /$s1/;
  print index($_, $s1)."\n";
}