use feature qw(say);

say qq(no match) unless (1, 4, 18) ~~ 4;
say qq(match) if (1, 4, 18) ~~ 18;

##</code><code>##

no match

match