#!/usr/bin/perl

use strict;
use warnings;
use Encode;

binmode(STDOUT,":utf8");

my @arr_abk = <>; # Liste von Abkürzungen

# Zeilenenden entfernen
chomp @arr_abk;

# Mache aus allen Abkuerzungen eine Regex
my @abk_re = @arr_abk;
s/\./\\w+/g for @abk_re;

# Alle Begriffe durchgehen
open(my $lex, "<:encoding(UTF8)", "lexikon.txt") or die "kann das Lexikon nicht öffnen: $!";
while (my $line = <$lex>){
    chomp $line;
    for my $i (0 .. $#abk_re) {
        print "$arr_abk[$i]\t$line\n" if $line =~ /^$abk_re[$i]$/i;
    }
}