>perl -le"$_='abc'; /(.)(?{ pos = 0 })(.)/; print for $1,$2"
a
b