sub es_email_mal_formado {
  my $x = $_[0];
  if ($x =~ m/[^\w\@\.\-]/)    {return "Incluye un carácter prohibido"};
  if ($x =~ m/\W\W/)           {return "Tiene dos no alfanuméricos seguidos"};
  if ($x =~ m/\@.+\@/)         {return "Tiene más de una arroba"};
  if (! ($x =~ m/\w\@\w/))     {return "No tiene arroba precedida y seguida de alfanumérico"};
  if (! ($x =~ m/\w\.\w/))     {return "No tiene punto precedido y seguido de alfanumérico"};
  if (! ($x =~ m/\@.+\./))     {return "No tiene punto en la parte que sigue a la arroba"};
  if ($x =~ m/^\W/)            {return "Empieza en no alfanumérico"};
  if (! ($x =~ m/\.\w{2,4}$/)) {return "No tiene \"de 2 a 4 alfanuméricos\" al final"};
  if ($x =~ m/(\@|\.).\.\w+$/) {return "Tiene una sola letra antes del último punto"};
  return 0;
}