$_=<>;1while print,s/(?