while (defined( $_ = <> )) {
   ...
}

##</code><code>##

my $sock = IO::Socket::INET->new(...)
   or die(...);

##</code><code>##

( my $copy = $str ) =~ s/\\/\\\\/g;