@words = split /\s+/, <DATA>
    print join "\n", @words, "";

    __DATA__
    How are you?

##</code><code>##

    How
    are
    you?

##</code><code>##

    map { s/[\?\.\!]*//g; } (@words = split /\s+/, <DATA>);

##</code><code>##

    $msg =~ s/\bu\b/you/g;    # Replace "u" with "you"
    $msg =~ s/\br\b/are/g;    # Replace "r" with "are"
    ...