($countIn, $binData) = $portCom1->read (1); 
$binData =~ s(\x0D\x0A)(\x0A)g;