Help for this page

Select Code to Download


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