I want to scanf, dammit!

Answer

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