use strict;  my $poem

= "Strict haiku";  
my @word = split(/\s/, $poem); 
print (( shift @word ) , " is good.");