Select Code to Download

@Michael = ('Michaelovich', 'Michaelovna);

my @genderEnding = ('ovich', 'ovna');
my @genderType = ('Male', 'Female');
...
 $in =~ s/[\r\n\cM]+$//;
 return $in;
}