Помогите разобраться с кодом (perl)

$socket = IO::Socket::INET->new(PeerAddr => "mysite:80");
($uploadserver) = <$socket> =~ /\r\n\r\n(\d+)/;

Если возможно переведите на C#. Или объясните, что означает 2-я строка. Заранее благодарен.
(P.S. perl-недружелюбный язык. Особенно,когда его не знаешь. )