or download this
#!/usr/bin/env perl
use 5.014;
...
__DATA__
May 20 18:57:27 1.23.25.5 %ASA-6-106100 a6 [local4.info] access-list M
+yaccess-Block permitted tcp outside/10.31.0.9(3803) -> inside/10.29.1
+0.91(4127) hit-cnt 1 300-second interval [0xa178b29d, 0x0]