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