$_ = join '', 'a' .. 'z';

print "$1\n" while /(.)/sg;

print map "$_\n", /(.)/sg;