<> { if ($hashmatch{$scrutiny}){ $$bufmem = $$bufmem . "<>\n"; if (length($$bufmem) > 1024){ print("buffer dump\n"); $outfh->print($$bufmem); $$bufmem = ""; } } } $outfh->print($$bufmem);