Select Code to Download

my @keys = $line =~ /([A-Z\d]+[-_][A-Z\d]+)/ig;

__DATA__
access-list INSIDE_IN remark Web Users To Web Server
...
object-group service WEB_TCP tcp
 port-object eq www
 port-object eq https