([A-Z0-9]+\-[A-Z0-9]+(\-[A-Z0-9]+)*)
(([A-Z]+\-)*\d+\-+\d+\-+\d+\-*[A-Z\d]*)
([A-Z]+\d+[A-Z]+\-\d+[A-Z]+\d*)
([A-Z]+\d+\-[A-Z]+\-*\d+[A-Z]+\d*)
(\d+\.\d\d\d+)
([A-Z]+\-[A-Z]+[\-A-Z]*\-\d+)
(\d\d\d+\-[A-Z\d]+[A-Z\d]*)
([A-Z]+\d+[A-Z]+\-[A-Z\d]+[A-Z\d]+[A-Z]*)
([A-Z]+\-\d+\-\d+)
([A-Z]+\d+\-\d+\-[A-Z]+\-[A-Z]+)
(\d+\-\d+\-[A-Z]+)
(\d+[A-Z]*\-[A-Z]+\-[A-Z]+)
(\d+[A-Z]+\d+\-\d*[A-Z]*)
(\d+\.\d+\.\d+\.*\d*)
((\d\d\d\d)+[A-Z]+)
(\d+\-[A-Z]+\-\d*[A-Z]*)
(\d\d+\,\d+)
([A-Z]+\-[A-Z]+\d+(\-[A-Z]\d)*)
([A-Z]+\d+\-*[A-Z]+\d+\-*[A-Z]+\-*\d+\-*[A-Z]+\d*)
([A-Z][A-Z]+\-*\d\d+[A-Z]*[A-Z\d]*)
([A-Z]+\d+\-?([A-Z]*\d*)*)
(\d\d+[A-Z]+\d+[A-Z0-9]*\-*[A-Z]*)
(\d\d+[A-Z][A-Z][A-Z]+[a-zA-Z0-9]*)
([A-Z]+\-*\d+[A-Z]+[A-Z\d]*)
(\d+\-\d+)
(\d\d\d\d+)

#!/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";
}