#!/usr/bin/perl

use strict;
use warnings;
use Encode;

binmode(STDOUT,":utf8");

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

open(my $lex, "<:encoding(UTF8)", "lexikon.txt") or die "kann das Lexikon nicht öffnen: $!";
while(<$lex>){
	chomp;
	my $line = $_;
	foreach my $abk(@arr_abk){
		chomp;
		$abk =~ s/[\r\n]//;
		my @ele_abk = split (/\./, $abk);
		if($abk =~ /^[^\.]{2,}\.$/){
			if($line =~ /^$ele_abk[0]/i){
				print "$abk\t$line\n";
			}
		}
		elsif($abk =~ /^[^\.]{2,}\.[^\.]{2,}\.?$/){
			if($line =~ /^$ele_abk[0]/i){
				if($line =~ /$ele_abk[1]/i){
					print "$abk\t$line\n";
				}
			}
		}
		elsif($abk =~ /^[^\.]{2,}\.[^\.]{2,}\.[^\.]{2,}\.?$/){
			if($line =~ /^$ele_abk[0]/i){
				if($line =~ /$ele_abk[1]/i){
					if($line =~ /$ele_abk[2]/i){
						print "$abk\t$line\n";
					}
				}
			}
		}
		elsif($abk =~ /^[^\.]{2,}\.[^\.]{2,}\.[^\.]{2,}\.[^\.]{2,}\.?$/){
			if($line =~ /^$ele_abk[0]/i){
				if($line =~ /$ele_abk[1]/i){
					if($line =~ /$ele_abk[2]/i){
						if($line =~ /$ele_abk[3]/i){
							print "$abk\t$line\n";
						}
					}
				}
			}
		}
	}

}