$phrase = "Hello World";
for ($phrase) { @parts = split }

##</code><code>##

while (<STDIN>) {
    push @parts, split;
}