my ($word1, $word2) = split(/\s+/);
if defined($word2) {
   ...
}

##</code><code>##

foreach $word (split /\s+/) {
   ...
}