# perl -w script.pl datafile pattern numlines
perl -w script.pl data.dat test 4