while ($line = <SH>){
        if($line =~ m/$agent/){
                $line = $collect;
        } elsif ( $line =~ m/best1collect/) {
                next;
        } elsif ($line =~ m/'syslogd'\)/){
                my $newline = $. + 3;
                $newline = $bgs;
                print OUT "$newline\n";
        }
    } continue {
     print OUT $line;
     print $line;
    }