perl -MO=Deparse perl_is_simple.pl
print chr hex length ' bless localtime ref ' if length 'aller ve' and print 'P' and print 'e' and print 'r' and print 'l' and print ' ' and print 'i' and print 's' and print ' ' and print 's' and print 'i' and print 'm' and print 'p' and print 'l' and print 'e';