Select Code to Download

Select or download this

#!/usr/local/perl510/bin/perl
use feature ":5.10"; use strict; use warnings; use Data::Dumper;
...
__DATA__
qr{(?<NASPRE>\QNAS-IP-Address=\E)}
Nov 21 15:04:29 TACACS01 Nov 21 21:04:29 127.0.0.9 CisACS_05_TACACSAdm
+in dsg4te2 1 0 User-Name=XXXXXX,NAS-IP-Address=127.0.0.10,Group-Name=
+XXXXXX,NAS-Portname=tty1,service=shell,cmd=write memory <cr>,priv-lvl
+=15,task_id=12344,

Select or download this
```
(?<NASPRE>\QNAS-IP-Address=\E)
```