$string =~ s/((?:^\s*|[!?.]+\s+)[^a-zA-Z0-9]*)([a-z])/$1\u$2/g; [download]
In reply to Re: How do i capitalise sentences? by japhy in thread How do i capitalise sentences? by Anonymous Monk