note Kenosis <p>Hi, jemswira!</p> <p>This is no bother at all!</p> <p>You mentioned that the following captured a key that wasn't in the final set:</p> <c> next unless /(E7F888)\s+.+=([^\s]+)/; push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1}; print @activline; </c> <p>Try the following:</p> <c> next unless /(E7F888)\s+.+=([^\s]+)/; say; exit; </c> <p><c>say</c>will print the scalar <c>$_</c> which the regex operates on. By doing this, you can examine the line to verify that the matches the following regex:</p> <c> /(.{6})\s+.+=([^\s]+)/ </c> <p>Also, it may be that the 'key' is not being captured from $activin, since:</p> <c> push @activline, "$1 | $2 | $activ{$1} \n" if $activ{$1}; </c> <p>will work only if the 'key' if found in both files and the regexs which process both work as they should.</p> <p>Let me know what you find...</p> 990508 991239