my $dtg=qr@[A-Z][a-z]+\s\d+\s\d+:\d+:\d+@;
my $thingy=qr([\.\d]+);
my $tz=qr([A-Z]{3});
my $ipaddr=qr@\d+\.\d+\.\d+\.\d+@;
my $fqdn=qr@[a-zA-Z\-\.]+@;
my $timezone  = qr@[A-Z]+@;
my $fragger = qr@(\%SEC-6-IPACCESSLOGP|\%SEC-6-IPACCESSLOGDP)@;
my $list=qr@list\s(\d+)@;
my $protocol = qr@(tcp|udp|icmp)@;
my $ip_with_port=qr@($ipaddr):(\d+):@;
my $arrow = qr @\-\>@;
my $time_lapse=qr@\d+d\d+h@;   # Something like 6d45h <sigh!>
my $metric_ex=qr(\d+:);
my $dtg1="Aug 22 11:46:27";
my $month="Aug";
my $monthDay="Aug 22";
my $time="11:46:27";

my $matchMonth=qr([A-Z][a-z]+);
my $dateMatch=qr($matchMonth\s\d+);
my $matchTime=qr(\d+:\d+:\d+);