open my $fh, '>:encoding(iso-8859-5)', 'c:/data/captions2.txt';
print $fh join '\n', @captions;