print $socket encode('UTF-8', $text);

##</code><code>##

$_=5;             # IV    -> PV
$_="abc"; s/.//;  # OOK=1 -> OOK=0