open (OUT, "output.txt");
 binmode(OUT, ":utf8");
 print OUT Dumper(\@matches);
 close OUT;