Select Code to Download

Aug 22 11:46:27 masterudp003210uds.netops.msnyuhealth.org 148526: Aug 
+22 15:46:26 UTC: %SEC-6-IPACCESSLOGDP: list 101 denied icmp 10.4.12.2
+53 -> 10.7.151.48 :8/0:, 1 packet

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

printf "Full String: %s\n",(
                           $full_string =~ m@
...
                           "OK":"FAILED"
                           );