Select Code to Download

#!/usr/bin/perl
use strict;
...
while (<DATA>) {
    print if ! /\bremark\b/;
}

#!/usr/bin/perl
use strict;
...
 network-object host 10.1.1.6
object-group service SMTP_TCP tcp
 port-object eq SMTP

access-list INSIDE_IN extended permit tcp object-group WEB-CLIENT obje
+ct-group WEB-SERVER object-group WEB_TCP
object-group network WEB-CLIENT
...
 network-object host 10.1.1.6
object-group service SMTP_TCP tcp
 port-object eq SMTP