Select Code to Download

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

Hello

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

Hello
ello
...
lo
o