my @suffixe = qw(en er);
my $suff_str = '(?:'.join('|', @suffixe).')';
my $txt = join('', <DATA>);

while ($txt =~ m/(\w+($suff_str))\b/g) {
	print "$1 $2\n";
}


__DATA__
Hallo Zusammen,

ich habe 2 relativ langen TXT-Dateien. Eine Text-Datei
ist ein ganz normaler deutscher Artikel (ca. 40000 Zeilen).
Die andere Datei ist eine Liste von Suffixe (Nomen, ADJ, etc.).
Was ich haben möchte, ist der Inputdatei einzulesen und
mit der Liste zu vergleichen. Mein Code sieht wie folgt aus: