chomp $data; 
$datalengthtrack--; 
chop $data; 
$datalengthtrack--; 
$data = reverse ($data); 
while ($datalengthtrack > $correctcleanlength){ 
    chop $data; 
    $datalengthtrack--; 
} 
$data = reverse ($data); 
print CLEANFILE "$data\n";