Select Code to Download

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

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

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