# wie gross darf $buffer max. werden
my $max_buf_size = 3;

while ( $socket->recv( $char, 1) ) {

  last if ( $char eq ' ' ); # Abbruch beim Leerzeichen \x20

  $buffer .= $char;
  last if ( length $buffer == $max_buf_size );
}