printf "Full String: %s\n",(
                           $full_string =~ m@
                           ($dateMatch\s$matchTime)\s
                           ($fqdn|$ipaddr)\s
                           $metric_ex\s
                           ($dateMatch\s$matchTime)\s
                           ($timezone):\s
                           $fragger:\s
                           list\s(\d+)\s
                           denied\s($protocol)\s
                           ($ipaddr)\s
                           $arrow\s
                           ($ipaddr)\s
                           :\d+\/\d+\:,\s
                           (\d+)\spacket
                           @x
                           ?
                           "OK":"FAILED"
                           );