while($data = $sock->peek()){
  if($data eq $what_you_want){
    &DO_YOUR_STUFF;
    last;
  }else{
    sleep 1;
  }
}