% perl -e '$\="japh";$\++for 0..108215;print'
perl