(C) 2003, Tim Maher       1-8       www.TeachMePerl.com
paragrep

#! /usr/bin/perl -wln
# Grep-like script that shows match context

BEGIN {
    $USAGE="Usage: $0 'RE' [file ...]";
    # must have pattern arg
    @ARGV > 0  or  die "$USAGE\n";
    # remove arg1 and load into $pattern
    $pattern=shift ;
    $/="";  # ENABLE PARAGRAPH MODE
}
# SHOW PARAGRAPHS THAT MATCH
/$pattern/  and  print ;