sidburn@sid:~$ perl -MPerl6::Junction=any -wle 'print "1.00" == any(1,2,3) ? "yes" : "no"'
yes
sidburn@sid:~$ perl -wle 'print "1.00" =~ m/^(1|2|3)$/ ? "yes" : "no"'
no