my $s1 = 'foofoo';
my $s2 = 'foo';
print "substring" if ($s1 =~ /\Q$s2\E/); #if $s1 is longer
print "substring" if ($s2 =~ /\Q$s1\E/); #if $s2 is longer