perl -e'my $foo = "A string"; my @foo = map{\substr $foo, $_} 0..7; print map {$$_,$/} @foo;'
A string
 string
string
tring
ring
ing
ng
g
$