mem #4

use strict;
use Encode qw/from_to/;
my $data = <>;
from_to($data, 'cp1251', 'utf-8');