Select Code to Download

perl -e 'use v5.14;$a=3456; my @all=split (//,$a);print "Yes" if 3 ~~ 
+@all;'

perl -e 'use v5.14;$a=3456; print "Yes" if 3 ~~ split (//,$a);'