Triy this:

  my $s = 'jackson corp.';
  $s = join ' ', map {ucfirst lc} split ' ', $s;
  print $s, "\n";
[download]