next unless /(E7F888)\s+.+=([^\s]+)/;
 push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1};

print @activline;

##</code><code>##

next unless /(E7F888)\s+.+=([^\s]+)/;
say;
exit;

##</code><code>##

/(.{6})\s+.+=([^\s]+)/

##</code><code>##

push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1};