my $agent = 'PerlBeginnerPerl';
$agent =~ s/.([A-Z])/ $1/g;
print $agent;

##</code><code>##

$agent =~ s/(.)([A-Z])/$1 $2/g;