sub foo{($_[0]=~/^(.+[!?.]\s)/s)?$1:$_[0]}