!usr/bin/perl -w use LWP::UserAgent; $ua = LWP::UserAgent->new; $req = HTTP::Request->new(GET => 'http://anyrussiansite.ru/'); $req->authorization_basic('user', 'password'); $content_of_cpasar = $ua->request($req)->as_string; $content_of_cpasar =~ s/[\n\r]//g; print "Found ",$&,"\n" if $content_of_cpasar =~ //i;