perl -Mre=debug -le " 1 while q{234} =~ /\d/ "