Select Code to Download

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

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

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