#!/usr/bin/perl

while (1) {
# $carddata = `./readcard 1000`;  # exits when card stops moving
 $carddata = `./readcard_with_parity_check 1000`;  # exits when card stops moving
# print $carddata;
 chomp $carddata;
# $commandstring = "echo \'$carddata\' >> cards.txt";
# print $commandstring;
# system($commandstring);
# $commandstring2 = "tail -1 cards.txt";
# system($commandstring2);
 #echo "hello^world" | sed  s/"\^"/\ /
 $carddata =~ s/\^/\ /;
 $carddata =~ s/\^/\ /;
 $carddata =~ s/\^/\ /;
 $carddata =~ s/\^/\ /;
 $carddata =~ s/\^/\ /;
 $carddata =~ s/\$/\ /;
 $carddata =~ s/\$/\ /;
 $carddata =~ s/\$/\ /;
 $carddata =~ s/\$/\ /;
 $carddata =~ s/\$/\ /;
 $carddata =~ s/\//\ /;
 $carddata =~ s/\//\ /;
 $carddata =~ s/\//\ /;
 $carddata =~ s/\//\ /;
 $carddata =~ s/\//\ /;
 print $carddata . "\n";
}