perl -e '$s=0;for $i (1..10) { ++$s }; print $s;'

##</code><code>##

perl -e '$s="a";for $i (1..26) { ++$s }; print $s;'