local $/;
$/ = ".";

open FH, "./testfile";
open OH, "> ./outputfile";

while (<FH>) {
    s/^(\W*)(\w)/$1\u$2/;
    print OH $_;
}

close FH;
close OH;

##</code><code>##

this is a test sentence.  this is another one.  we want to test wheter or not this will
make these sentences uppercase.
    another paratraph.  and another sentence.  An upercase one.

a differetn kind of break.

thisone is kind of difficult: www.goof.com.