"mig" tool

[migration-tools.git] / text / strip_cm_tabs

diff --git a/text/strip_cm_tabs b/text/strip_cm_tabs
new file mode 100755 (executable)
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";
+}