#!/usr/local/bin/perl 

sub capitalizeFirstLetter
 {
   my $mystring = $_[0];
   
   $mystring =~ s/\b(\w)/uc($1)/eg;

   return $mystring;
 }