New format: wip spi input converter

[appendix-a6.git] / spi2loose

diff --git a/spi2loose b/spi2loose
new file mode 100755 (executable)
index 0000000..9965502
--- /dev/null
+++ b/spi2loose
@@ -0,0 +1,8 @@
+#!/usr/bin/perl -w
+use strict;
+while (<>) {
+      m/^(\w+) (\w+)$/ or die "$_ ?";
+      print "$1 : ".(join " ", split //, $2)."\n" or die $!;
+}
+      
+