use File::Stream; open my $fh, $ARGV[0] or die "Cannot open $ARGV[0]: $!"; my $fs = File::Stream->new($fh); local $/ = qr/\s+/; my ($i, $word); while ($word = <$fs>){ last if ++$i == 500; } $word =~ s|$/||g; print "$word\n";
Next