my %data; @[EMAIL PROTECTED] = ();
/$regex/ && $data{$ARGV}{$1}++ while <>;
print
map { my $this = $_;
map { my $that = $_;
map { "In $this but not $that $_\n" }
grep { not exists $data{$that}{$_} } keys %{$data{$this}} }
grep { not $_ eq $this } keys %data } keys %data;
--
John Douglas Porter
__________________________________
Do you Yahoo!?
Free Pop-Up Blocker - Get it now
http://companion.yahoo.com/
