1: my $pattern = join('|',(keys %sufdata));
2: if ($name =~ s/($pattern)$/$sufdata{$1}/o) {
3:   print "Suffix $1 -> $name\n";
4:   return;
5: }
6: print " no rule apply -> $name\n";

##</code><code>##

my $pattern = join('|',(keys %sufdata));

##</code><code>##

if ($name =~ s/($pattern)$/$sufdata{$1}/o) {

##</code><code>##

if ($name =~ s/(a|s|k|ar|ic|ec|ek|er|vec)$/$sufdata{$1}/o) {