use Encode qw( decode from_to );

# Outputs windows-1251 text
open my $fh, '>', $qfn;
print $fh $response->content;

# Outputs iso-8859-5 text
open my $fh, '>', $qfn;
$content = $response->content;
from_to($content, 'windows-1251', 'iso-8859-5');
print $fh $content;

# Outputs iso-8859-5 text
open my $fh, '>:encoding(iso-8859-5)', $qfn;
print $fh decode('windows-1251', $response->content);

# Outputs iso-8859-5 text, assuming
# the content encoding is detected.
open my $fh, '>:encoding(iso-8859-5)', $qfn;
print $fh $response->decoded_content;

##</code><code>##

my $file = $response->content;

##</code><code>##

my $file = $response->decoded_content;

##</code><code>##

my $file = decode('windows-1251', $response->content);