my $stem = $verb;
  $stem =~ s/er$//;

  my $present_1 = $stem . "e";
  my $present_2 = $stem . "es";
  ...