#                 1         2         3
#        12345678901234567890123456789012345
perl -E 'say$_=3;/i/?die:say$_*=$_ while--$_' # old
perl -E 'say$_=3;say$_*=--$_ while$_&&!/i/'   # new