perl -le '$s = shift; while (length($s) < 100) { print $s; eval $s; $s++; }'