A slightly more Perlish alternative:

#!/usr/bin/env perl 
use strict;
use warnings;

print title_case('barney rubble');
exit;

sub title_case {
    $_ = shift;
    s/\b(\w)/\U$1/g;
    return $_;
}
[download]

See also the FAQ.