foreach (@files) {
  print "$_\n";
  my $original = $_;
  s/canción/poesía/;
  rename "$directory\\$original", "$directory\\$_";
}