##

use strict;
use LWP::UserAgent;
my @captions;

my $response = $ua->get('http://www.1418.ru/chronicles.php?p=100');
if ($response->is_success) {
    my $file = $response->content;
    $file =~ m/

`(.*)<\/h3>/i; my $h3_content = $1; push @captions, $h3_content; } else { warn 'ERROR: no HTML ',$response->status_line; } #### open my $fh, '>:encoding(iso-8859-5)', 'c:/data/captions2.txt'; print $fh join '\n', @captions; #### "\x{00ff}" does not map to iso-8859-5.`