open(my $fh_in, '<:encoding(UTF-8)', ...) or die ...;

...

my @allItems = $file_in =~ m{<item>(.*?)</item>}sg;

...

open(my $fh_out, '>:encoding(UTF-8)', ...) or die ...;
print $fh_out ...;