my $ctl = tie *FH, 'Tie::Handle::MultiRec', $0, "\n", 3;
my $n = 1;
while (<FH>) {
	print "Record $n:\n$_\n\n";
	$ctl->N(3+$n); # get more lines per read (the conventional way)
	print FH qq(irs=""); # switch to paragraph mode (using OOB)
	$n++;
}