use strict;
use warnings;


sub main {
  while (defined(my $line = <>)) {
    if ($line =~ m{^(<[^>]+> /[^/]+/: )(.+)$}) {
      my $pre = $1;
      my $analysis = $2;
      $analysis =~ 
        s{((?:^|[^aeiou])[aeiouy])(=\S*[125iu](?: [^aeiouy]+=\S+)* [^aeiouy ]*)e(=[bdDfghjJklmnNpPrsStTvwzZ_H\@](?: s=z)?)$}
         {$1_e$2e$3};
      $analysis =~ s{=([246]) - (re?)=\@}{$2=$1\@};
      print($pre, $analysis, qq{\n});
    }
  }
}

main();
