X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=text%2Fstrip_cm_tabs;fp=text%2Fstrip_cm_tabs;h=13479c269bb5cc8e19413a04c5acd0a62339fc0d;hp=0000000000000000000000000000000000000000;hb=f9201dc2d1699f5161e5e29690a1634e8063bb85;hpb=d1812fa8c4c9e220978d650adb3611c978a2a56b

diff --git a/text/strip_cm_tabs b/text/strip_cm_tabs
new file mode 100755
index 0000000..13479c2
--- /dev/null
+++ b/text/strip_cm_tabs
@@ -0,0 +1,6 @@
+#!/usr/bin/perl -w
+while (my $line = <>) {
+    chomp $line;
+    $line =~ s/\x0D\x09/_/g;
+    print "$line\n";
+}