#!/apps/bin/perl -w
use strict;

my @lines_that_matched = ();

while (<>) {
    chomp;
    if (/PAGE:   2/) {
	push (@lines_that_matched, $_);
    } 
}

foreach my $line (@lines_that_matched) {
    print  "$line\n";
}