chiark
/
gitweb
/
~ian
/
appendix-a6.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
996550277fb4023839cc68fbb0628d97898cc604
[appendix-a6.git]
/
spi2loose
1
#!/usr/bin/perl -w
2
use strict;
3
while (<>) {
4
m/^(\w+) (\w+)$/ or die "$_ ?";
5
print "$1 : ".(join " ", split //, $2)."\n" or die $!;
6
}
7
8