Select Code to Download

#!/usr/bin/perl
#
...
    print $input if ! $exclude{$input};
}
close $input_fh;

$ cat file1
$i++;
$ only-in file1 file2
Nested quantifiers in regex; marked by <-- HERE in m/^$i++ <-- HERE ;
$/ at /home/qmechix/only-in line 27.