>perl -le"'abc1def2' =~ /(?:([a-z])(?{ print $^N }))+2/"
a
b
c
b
c
c
d
e
f