Help for this page

Select Code to Download


  1. or download this
    s/(\.\W+)(\w)/$1\u$2/g;
  2. or download this
    open IN, "< infile" or die "couldn't open infile: $!";
undef $/;
$_ = <IN>;
s/(?<=\n\s*)(\w)/\u$1/g;
print OUT;
  3. or download this
    s/(?<=\n\s*\n\s*)(\w)/\u$1/g;