in reply to Check if one string is a substring of another.

$s1 =~ /\Q$s2/

Updated: oh, if you don't know which is shorter:

length($s1)>length($s2) ? $s1 =~ /\Q$s2/ : $s2 =~ /\Q$s1/;

In Section Seekers of Perl Wisdom