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