#!/usr/bin/perl -w

##############################################################################

##</code><code>##

#!/usr/bin/perl
use warnings;
use strict;

##############################################################################

##</code><code>##

open FH, "&lt;:encoding(UTF-16)", "$file_folder\\$ori_datafile" or die "can't open file";

...

#open (NEWFILE, ">$file_folder\\$new_datafile") or die "can't open file";
open (NEWFILE, ">:encoding(UTF-16)","$file_folder\\$new_datafile") or die "can't open file";
open (FIXLOG, ">$log_folder\\$fix_log") or die "can't open file";
open (ERRLOG, ">$log_folder\\$error_log") or die "can't open file";
open (FIXRPT, ">$log_folder\\$rptfile") or die "can't open file";

##</code><code>##

   chop;  # aviod \n in last field;

##</code><code>##

   $ori_line_number=$ori_line_number+1;

##</code><code>##

   $ori_line_number += 1;

##</code><code>##

   $ori_line_number++;

##</code><code>##

   $pipe_thisline=($_ =~ tr/\|/\|/);

##</code><code>##

   $pipe_thisline = tr/|//;

##</code><code>##

  if ($pipe_thisline eq $right_pipes) {

...

        if ( $pipe_thisline > $right_pipes ) {

##</code><code>##

  if ($ori_line_number eq 1) { print FIXRPT "Report on Fixing Line Breaks in CT_Vendor_Summary File\n\n";
...

	else {  if ($pipe_sum eq 0 ) {

...

			elsif ($pipe_sum eq $right_pipes ) {