while(<>){
    if ($_ =~ /newpair/){
	print "\n";
    }
    print $_;
}