perl -e 'my $s = "I will not throw paper airplanes in class"; for (my $i=0;$i<9;$i++) { $s =~ s/^(.*)$/"$1\n$1"/seg;} my @a = split(/\n/,$s); for (my $i=0;$i<11;$i++) { pop @a}; print join("\n",@a)'