$/ = undef;
my $answer = <$socket>;

##</code><code>##

while( $answer = <$socket> ) {