$tp =~ tr/\r//d;
$th =~ tr/\r//d;