17:49 >perl -we "use v5.14; $a = 3456; print 'Yes' if 3 ~~ @{[split(//, $a)]};"
Smartmatch is experimental at -e line 1.
Yes
17:49 >