my $leer = " ";

#------------------------------------------------------------------
#Protokoll beginn - ABFRAGEN , BEFEHLE etc.

sub antwort{
print $_[0];

($i1, $i2, $i3)=split($leer,$_[0]);

#Verbindungsabfrage
if($i1." ".$i2 eq "sicherheitscode connect_request\r\n") { 
"connect_ok";
}