http://www.perlmonks.org?node_id=1021282

programmer.perl has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks, I'm having trouble with matching the Cyrillic words. I want to find some needed words (words written by cyrillic fonts) in a website. I don't know how to write word 'желаю' to the regex // brackets (see my code example). I want to match whole word between the HTML brackets (<>). Source look like this: <br />CYRILLIC TEXT<br /> My code is:
!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;
Enough codes make shapes.