#!/usr/bin/perl
use warnings;
use strict;

print "$_\n" for split ( "Hello World" );
 
print "$_\n" for split /\s+/, "Hello World";