while ( $socket->recv( $char, 1 ) ) {
   # Abbruch wenn das gelesene ein Whitespace-Zeichen ist: Zeichenklasse [\ \t\r\n\f]
   # also Leerzeichen, Tab, Umbruch, vert. Tab
   last if ( $char =~ m/^\s$/ );
   $buffer += $char;
}