($line =~ m/'syslogd'\)/); #### } else { ($line =~ m/'syslogd'\)/); my $newline = $. + 3; $newline = $bgs; print OUT $newline; next; } #### print OUT $bgs; next;