# capitalize all the words in the given string. very useful.
sub capitalize {

my $string = $_[0];

if (!$string) { return; }

my @cut = split / /,$string;

my $new;
my $count = 0;
foreach my $word (@cut) {
$new = $new . ucfirst $word . " ";
}

chop $new; #get rid of trailing blank

$new =~ s/\// - /gi;

return $new;


}