>>612
my $str1 = "サービス";
my $str2 = "サービス期間";
print "match\n" if( $str2 =~ /\Q$str1\E/);