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