print join "\n", 
        split(/\s+/,"Just Another Perl Hacker"),
        "\n";