while( $line = <INFILEHANDLE> ) {
  chomp($line);
  $seen{$line} = 1; # for dup checking
  if ($seen{$line}) { next; } # for dup skipping/deleting
  patch_line($line);
  format_line($line);
  # ... any other code ...
  print OUTFILEHANDLE $line;
}