#!/usr/bin/perl -w

# capitalizes first word on each line

if (/(.)(.*\n)/) {
        $f = $1;
        $f =~ tr/a-z/A-Z/;
        print "$f$2";
} 

else {
        print;
}

exit;