Select Code to Download

#!/usr/bin/perl

...
        print "Data inconsistency detected in line ", $_, "\n";
    }
}

while (<$fh_i>) {
  if ($_ =~ ...) ...