$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";
}