#!/usr/bin/perl -w

# $ApsCVS: www/wml/getfirst.pl,v 1.1.1.1 2000/07/28 22:02:55 andreas Exp $

use strict;
use vars qw< $num $cnt $wrd $fil @lines >;

$cnt = 0;
$fil = shift || usage();
$num = shift || usage();
$wrd = shift || "<\/news>";

sub usage () {
	$0 =~ s,.*/,,;
	die "Usage: $0 <file> <num> <word>\n";
}

open IN, $fil or die "couldn't open file $fil: $!\n";
@lines = <IN>;
close IN;

if($num < 0) {
  # Skipping first $num matches
	for(@lines) {
		if (m/$wrd/o) {
			$num++;
			next if $num <= 0;
    }
  	next if $num < 0;
		print;
	}
} else {
  # Showing first $num matches
	for (@lines)    {
		$cnt++ if m/$wrd/o;
		print;
    last if $cnt >= $num;
	}
}