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

##</code><code>##

$agent =~ s/(?<!^)([A-Z])/ $1/g;

##</code><code>##

$agent =~ s/(?<!^)(?=[A-Z])/ /g;