$_ = "Hello"; print "$1\n" while /(?=(.*))/g; #### Hello #### $_ = "Hello"; print "$1\n" while /(?=(.*)?)/g; #### Hello ello llo lo o
## Hello ##
## $_ = "Hello"; print "$1\n" while /(?=(.*)?)/g; ##
## Hello ello llo lo o