$_ = "Hello";
print "$1\n" while /(?=(.*))/g;

##</code><code>##

Hello


##</code><code>##

$_ = "Hello";
print "$1\n" while /(?=(.*)?)/g;

##</code><code>##

Hello
ello
llo
lo
o