>perl -wMstrict -le
"my $s1 = 'foo not *UN*known but bar is';
 my $s2 = '*UN*known';
 ;;
 die qq{'$s2' not in '$s1'} unless $s1 =~ m{ \Q$s2\E }xmsp;
 print qq{all after: '${^POSTMATCH}'};
"
all after: ' but bar is'