my $s = '\E\s\Q';
my $test = 'Hal lo';
say $test =~ /\Q$s\E/ ? 'JA' : 'NEIN';