tchat2fplm.perl

#!/usr/bin/perl

while(<>){
#    chop;
    ($mot, $mot_corrige, $err, $pos, $lemme, $num, $locuteur, $timestamp) = split /\t/;

#    print "$mot\t$pos\t$lemme\t#####\n";
    print "$mot_corrige\t$pos\t$lemme\t#####\n";
}