$s.=$_ while <STDIN>;$s=~s/.../.../;