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

    __DATA__
    How are you?