#!/usr/bin/perl
use strict;

while(<DATA>) {
        print map ( ucfirst($_) . " ", split / / );
}

__DATA__
jackson corp