Select Code to Download

my $addr= '\0' x 4;
$api->Call( $addr );
my $len= 1;
...
do {
    $string= unpack "p$len", $string;
} until(  '$' eq substr($string,-1)  );