#23456789_123456789_123456789_123456789_1
perl -ple'$_ x=65==unpack"%c*","?"x30&uc'