-#!perl\r
-rename("$ARGV[0]", "$ARGV[0].old");\r
-open(FILE, "$ARGV[0].old");\r
-open(OFILE, ">$ARGV[0]");\r
-while(<FILE>)\r
-{\r
-if($. != $ARGV[1])\r
-{\r
-print OFILE;\r
-next;\r
-}\r
-s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;\r
-s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;\r
-print OFILE;\r
-}\r
-close(OFILE);\r
+#!perl
+rename("$ARGV[0]", "$ARGV[0].old");
+open(FILE, "$ARGV[0].old");
+open(OFILE, ">$ARGV[0]");
+while(<FILE>)
+{
+if($. != $ARGV[1])
+{
+print OFILE;
+next;
+}
+s/Sys_Printf \(/Sys_FPrintf \(SYS_VRB,/;
+s/Sys_Printf\(/Sys_FPrintf \(SYS_VRB,/;
+print OFILE;
+}
+close(OFILE);
close(FILE);
\ No newline at end of file