#!/usr/bin/perl -n

$_ =~ s/([^|\.][\s]*)(.)([^.]*)/\1\U$2\L$3/g;

print $_;
