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