use strict;

my $num_words = 4;

my @words = ();
open FILE, "<in.txt" or die $!;
while ( <FILE> )
{
        last if ( push ( @words, m/\s*([^\s]+)\s*/g ) >= $num_words );
}
close FILE;

print join( " ", @words ) . "\n";