my $re_asalog = qr{
  ^ # start of line
    (?<time>  .{15} )
    \s
    \s (?<firewall> \S+ )
    \s (?<part_firewall> \S+ )
    \s access-list
    \s (?<source_acl> \S+ )
    \s (?<action> \S+ )
    \s (?<protocol> \S+ )
    \s (?<source_interface> \S+ )
    \s (?<source_ip> \S+ )
    \s (?<source_port> \S+ )
    # ...
  $ # end of line
}mx;