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