Tim Towtdi ;-)

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