t-unit/to_new_format

   1 #!/usr/bin/perl
   2 # Usage: to_new_format < sar.t
   3 # convert sar.t from old format to new format (spaces between stones)
   4
   5 foreach my $str (<STDIN>)
   6 {
   7     if ($str =~ m/^[.XO]+$/)
   8     {   $str =~ s/([.XO])/$1 /g;
   9         $str =~ s/ $//;
  10     }
  11     print $str;
  12 }