perl -pi  's/\r\n/\n/' $a