Select Code to Download

use strict;

...
print $my_name;

#prints August Ferdinand Mobius

sub replace {
    my($text, $pattern, $replacement, $modifiers) = @_;
    (my $result = $text) =~ s/$pattern/$replacement/$modifiers;
    return $result;
}

$my_name = replace("august ferdinand mobius","\b(\w)","\U$1","igs");

use strict;

...
    return $result;
}