#!/pkg/bin/perl -w
# changes 0's to 1's and the reverse in the genotype line, 
# because the output from
# hudson's program has that non-standard use of 0's and 1's.
#
open IN, "$ARGV[0]";
$outer = "$ARGV[0]o";
open OUT, ">$outer";
while ($line = <IN>) {
 if ($line =~ /^[01]{5,}$/) {
 $line =~ tr/01/10/;
 }
 print OUT "$line";
}