Select Code to Download

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

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