I prefer to make all the edits with a single regexp.

%type lamasulo.pl
use strict;
use warnings;
use Test::More tests=>1;
my $first = "billy bob allan";

$first =~ s/(\w+)/ucfirst($1)/ge ;

ok( $first eq 'Billy Bob Allan', 'Caps' ) ;


%perl lamasulo.pl
1..1
ok 1 - Caps

%
[download]