#!/usr/bin/perl -0777 -n

# paragreph.pl - print whole paragraph around the match like AIX grep -p

print join ("\n\n", grep(/MATCH/, split("\n\n", $_))), "\n"