my $c= getc();
return $c
    if  $c < 0x80;
$c= getc() + (($c-0x80)<<8);
return $c
    if  $c < 0x4000
return getc() + (($c-0x4000)<<8);

##</code><code>##

sub getc { ord( substr($buf,0,1,'') ); }