#!usr/bin/perl
use warnings;
use strict;
my $Phrase = "Hello World";
my @Parts = split(/\s/,  $Phrase) ;