my $line = 'This    is     a    test';
my (@words) = split( /\s+/, $line);
my $twowords = $words[0] . ' ' . $words[1];
print "$twowords\n";