Honestly i am not completely sure on what you want.

"Print lines based on matching words."
If you want to print lines based on matching and/or non matching words:

while (<DATA>) {
print if ($_ =~ /access-list/i && $_ !~ /remark/i);
}

__DATA__
access-list INSIDE_IN remark Web Users To Web Server
access-list INSIDE_IN extended permit tcp object-group WEB-CLIENT obje
+ct-group WEB-SERVER object-group WEB_TCP
access-list INSIDE_IN remark EMAIL To EMAIL Server
access-list INSIDE_IN extended permit tcp object-group EMAIL-CLIENT ob
+ject-group EMAIL-SERVER object-group SMTP_TCP
object-group network PC1_1st
 network-object host 10.1.1.11
object-group network PC2_1st
 network-object host 10.1.1.12
object-group network WEB-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network WEB-SERVER
 network-object host 10.1.1.5
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https
object-group network EMAIL-CLIENT
 group-object PC1_1st
 group-object PC2_1st
object-group network EMAIL-SERVER
 network-object host 10.1.1.6
object-group service SMTP_TCP tcp
 port-object eq SMTP
[download]

output:

C:\Users\user\Desktop>test.pl
access-list INSIDE_IN extended permit tcp object-group WEB-CLIENT obje
+ct-group WEB-SERVER object-group WEB
_TCP
access-list INSIDE_IN extended permit tcp object-group EMAIL-CLIENT ob
+ject-group EMAIL-SERVER object-group
 SMTP_TCP
[download]

But like i said, i am still =unsure what you are trying to do :(