s/[$c-z]?$/$c$&/while$c=getc;print