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