http://www.perlmonks.org?node_id=616988


in reply to finding number of contiguous letters

Tim Towtdi ;-)

my $string='computer';
my $len= 3;
my @strings= map substr($string,$_-$len,$len),($len..length $string);
print join "\n",@strings,'';

[download]
s$$([},&%#}/&/]+}%&{})*;#$&&s&&$^X.($'^"%]=\&(|?*{%
+.+=%;.#_}\&"^"-+%*).}%:##%}={~=~:.")&e&&s""`$''`"e

In Section Seekers of Perl Wisdom