view release on metacpan or  search on metacpan

Regex.pm  view on Meta::CPAN

    my $ports = $args{ports} ||
     qr{
        (?:n?eq\s+(?:$port|$pnames))
        |
        (?:range\s+$port\s+$port)
        |
        (?:lt\s+(?:$port|$pnames))
        |
        (?:gt\s+(?:$port|$pnames))
        |
        (?:ack|dscp|established|fin|fragments|psh|rst|syn|urg)
      }x;
    
    my $standard = qr{
        ^access-list
        \s+
        (?<name>\S+) 
        \s+
        (?<action>(?:permit|deny))
        \s+
        (?<source>$network)