Select Code to Download

 
use strict;
use warnings;
...
        print $line 
    }
}

 
perl -ne 'BEGIN{$count = @ARGV}; $seen{$_}{$ARGV}=1; END{while( ($line
+, $by_whom) = each %seen){ print $line if $count == keys %$by_whom}} 
+'