print "$a File Having  CtrlM  and Removed \n";
    `perl -pi  's/\r\n/\n/' $a`;