$PortObj->write($text,$textlength);
$PortObj->write(q{ } x $textpos,$textpos);
$PortObj->write($text2,$textlength2);