spi2loose

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