use utf8::all;
use Encode;
# This reads unreadable characters.
@a=do 'q';
# So, i decode this (notwithstanding utf8::all usage):
$a[0]=decode( 'UTF-8', $a[0] );
$a[1]=decode( 'UTF-8', $a[1] );
# I save the decoded data (for later usage):
open SVITOK, '>q';
$sod='q~'.$a[0].'~, qq~'.$a[1].'~'."\n";
print SVITOK $sod;
close SVITOK;
# Now, i read it again. -- That reads unreadable characters again.
@a=do 'q';