$ perl -e'$_ = "Hello"; print "<$1>\n" while /(?=(.*))/g;'
<Hello>
<ello>
<llo>
<lo>
<o>
<>

$ perl -e'$_ = "Hello"; print "<$1>\n" while /(?=(.+))/g;'
<Hello>
<ello>
<llo>
<lo>
<o>