compute-scottish-stv: slight improvements

[appendix-a6.git] / spi2loose

#!/usr/bin/perl -w
use strict;
while (<>) {
      m/^(\w+)(?:\s+(\w+))?$/ or die "$_ ?";
      print "$1 : ".(join " ", split //, ($2 // ''))."\n" or die $!;
}