Help for this page

Select Code to Download


  1. or download this
    use strict;
    
    ...
    print $my_name;
    
    #prints August Ferdinand Mobius
    
  2. or download this
    sub replace {
        my($text, $pattern, $replacement, $modifiers) = @_;
        (my $result = $text) =~ s/$pattern/$replacement/$modifiers;
        return $result;
    }
    
  3. or download this
    $my_name = replace("august ferdinand mobius","\b(\w)","\U$1","igs");
    
  4. or download this
    use strict;
    
    ...
        return $result;
    }