perl -le '$_="cap this. not this."; s/([^.]*)/uc $1/e; print'