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