#!/usr/bin/perl print < EOB while (<>) { last if m(); } print "\n\n"; $page = 0; while (<>) { if (s()()g; if (s(); print; } print < EOB