while ( my $para = <$PROTFILE> ) { 
  # Remove fasta header line 
  if ( $para =~ s/^>(.*)//m ){ 
    $name = $1; 
  }; 
  # Remove comment line(s) 
  $para =~ s/^\s*#.*//mg; 
  # Trim trailing white space 
  $para =~ s/\s+$//; 
  # next FASTA_RECORD if $fasta_seen{ $para }++; 
  if ( $fasta_seen{ $para }++ ){ 
    printf "duplicate record %s %s \nwritten to %s\n",$name,$para,$out_filename; 
    print $OUTFILE '>'.$name.$para."\n\n";
  } 
}