#!usr/bin/perl use warnings; use strict; $_ = "Separated by whitespace\n"; print "$_\n" foreach (split);