Select Code to Download

my $re_asalog = qr{
  ^
...
  (\S+) # $5 action
  ...
}xm;

my $re_asalog = qr{
  ^ # start of line
    (?<time>  .{15} )
...
    # ...
  $ # end of line
}mx;

#!/usr/bin/perl --
use Data::Dump ;
...
  Q => 4,
}
Freeing REx: "%n  (?<P>(?&V))  # match <V> and save to $+{P} %n  (?<Q>
+ .) "...