#!/usr/bin/perl

use strict;
use warnings;
use Encode;

binmode(STDOUT,":utf8");
open(my $regex, "regex.txt") or die;
my @regex = <$regex>;
while(<>){
	chomp;
	my $line = $_;
	foreach my $reg(@regex){
		chomp $reg;
		if($line =~ /\s($reg)\s/){
			my $treffer = $1;
			$line =~ s/$1/\($treffer\)/g;
		}
	}
	print "$line\n";
}