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