...
my $name =<STDIN>;
print $sock $name;   # $name still holds the newline you got from STDIN

##</code><code>##

print $sock "NAME: $name";

##</code><code>##

    /^NAME: (\w*)/ and ... # do something with $1