Help for this page

Select Code to Download


  1. or download this
        @words = split /\s+/, <DATA>
    print join "\n", @words, "";

    __DATA__
    How are you?
  2. or download this
        How
    are
    you?
  3. or download this
        map { s/[\?\.\!]*//g; } (@words = split /\s+/, <DATA>);
  4. or download this
        $msg =~ s/\bu\b/you/g;    # Replace "u" with "you"
    $msg =~ s/\br\b/are/g;    # Replace "r" with "are"
    ...