# Smartmatch operator ~~ my $text = "Milwaukee Perl Monger's"; if $text ~~ m/ Perl / { # space is not significant by default! say "I found '$/'"; # $/ is the match object } if $text !~~ m/ Clojure / { # negation is represented by !~~ say "Didn't match Clojure"; }