open(my $fh, '>:encoding(UTF-8)', $output_fqn) or die;
print $fh ($text);