Hi

Thanks for your reply
In my input file CONTROL_M character's are found inside the line also.
When i try it by dos2ux it removed CONTROL_M character's inside line also.
And my concern is to remove only CONTROL_M character and not any other special characters.
Kindly advise how to proceed, also how to speed up the process by using below code.

$self->remove_controlM($infile);

sub remove_controlM
{
   my $self = shift;
   my $in_file = shift;
   my $out_file = $in_file . "controlM_removed";
   open(my $FH_IN, '<', $in_file) or die "Failed to open $in_file $!\n
+";
   print "REMOVE CONTROL_M CHARACTER PROCESS STARTING";
   open(my $FH_OUT, '>', $out_file) or die "Failed to write $out_file 
+$!\n";
   while (<$FH_IN>) 
   {
      s/\r//g;
      print($FH_OUT $_);
   }
   close ($FH_IN);
   close ($FH_OUT);
   unlink($in_file);
   `mv $out_file $in_file`;
   print "REMOVE CONTROL_M CHARACTER PROCESS ENDING";
}
[download]

Thanks,
Shanmugam A.