#!/usr/bin/perl
while (<>) {
    s/\r//g;
    s/#//g;
    chomp;
    if (! /radlen\s+rhoZ_overA\s+rhoZ_overA_logI/) {
	print;
	print "\\n";
    }
}
exit;
