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