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