$agent = 'PerlBeginnerPerl AndAnother';
$agent =~ s/\B([A-Z])/ $1/g;

# Produces 'Perl Beginner Perl And Another'

$agent = 'PerlBeginnerPerl AndAnother';
$agent =~ s/\B([A-Z])/ $1/g;

# Produces 'Perl Beginner Perl  And Another'