# 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";
    }