or download this
my $dtg=qq@\d+\-\d+\-\d+\s\d+:\d+:\d+@; # Date time group
my $logtype=qw@Local\d\.[Error|Critical]@; # Log type
...
my $odtg=qq@[A-Za-z]{3}\s\d+\s\d+\s\d+:\d+:\d+:@;
my $select=qq@%FW\-\d+\-\d+@; # FW or PIX?
my $match_line=qq@$dtg\s+$logtype\s+$ipaddr\s+$otg\s+$select@;