<>;$o=getc;$b=<>;print$b=~s/\d+/$_.$o.$&/geerfor<>