use warnings;
use strict;
my $PARTICULAR_LINE;  # regex

print '-' x 80;

while (<DATA>) {
    s/========KEYWORD.+\n//;
    print;
    
    if ( /$PARTICULAR_LINE/ ) { access($_) }
}
print '-' x 80;

__DATA__