#!perl
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new( agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.8) Gecko/20071008 Firefox/2.0.0.8' );
my $response = $ua->get('http://www.securitylab.ru/');
my $res  = $response->as_string;

my @t = $res =~m/<font class="smalltext">(.+)<\/font><\/div>/g;

foreach (@t)
{
   printcyr( "$_ \n\n");
}

sub printcyr 
{

	my $text = shift;
	$text =~ y/А-яЁё/\x80-\xaf\xe0-\xf1/;
	print $text;
}

............

Тестирование проводится с согласия родителей. По заявлению поставщика, использо
ание чипов позволит быстрее регистрировать учеников, обеспечивать их безопаснос
ь и оптимизировать дисциплину.

Программистам из компании SlySoft удалось взломать улучшенную систему защиты оп
ических дисков формата Blu-ray, известную под названием BD+ и до недавнего врем
ни считавшуюся абсолютно неуязвимой для хакерских атак.
............