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

##</code><code>##

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