$i=0,s/./$&lt"a"?($i++?lc$&:$&):($i?($i=0,uc$&):$&)/ge,print for<>