unfada.pl

#!/usr/bin/perl

use warnings;
use strict;
use utf8;

binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");

sub unfada {
  my $w = shift;
  $w =~ s/á/a/g;
  $w =~ s/é/e/g;
  $w =~ s/í/i/g;
  $w =~ s/ó/o/g;
  $w =~ s/ú/u/g;
  $w =~ s/Á/A/g;
  $w =~ s/É/E/g;
  $w =~ s/Í/I/g;
  $w =~ s/Ó/O/g;
  $w =~ s/Ú/U/g;
  $w;
}

while(<>) {
  chomp;
  my ($l, $r) = split/=/;
  if(unfada($l) eq unfada($r)) {
    print "$_\n";
  }
}

unhyph.pl

#!/usr/bin/perl

use warnings;
use strict;
use utf8;

binmode(STDIN, ":utf8");
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");

while(<>) {
  chomp;
  next if($_ !~ /-/);
  my ($l, $r) = split/=/;
  my $lorig = $l;
  $l =~ s/-/ /g;
  if($l eq $r) {
    print "$lorig+\n";
  }
}