Select Code to Download

 1  #/usr/bin/perl
 2
...
28       print $_;
29    } 
30  }

push @aoutput, $_ unless /matches\)$/;

unless (/matches\)$/) { $no_match_day_two{$_} = 1 }

foreach my $match ( keys %no_match_day_two ) {
   print $match unless exists $no_match_day_one{$_};
}

@nmday_one_but_not_nmdtwo = grep { exists $no_match_day_two{$_} } keys
+ %no_match_day_one;