#!/usr/bin/perl

use strict;
use warnings;

my @list;

open(my $root, "root.txt") or die "kann das Lexikon nicht öffnen: $!";
open(my $begriff, "begriff.txt") or die "kann das Lexikon nicht öffnen: $!";

while(<$begriff>){
	chomp;
	push @list, $_;
}

while(<$root>){
    chomp;
    my $lex = $_;
    foreach my $string(@list){
		if($string =~ /^(.*)$lex$/i){
			print "$string\t$1\t$lex\n";
                        #um zu verhindern, ABCabcd ABCa bcd
			@list = grep !/$string/, @list;
		}
	}
}
print "REST : @list\n";

abcd
defg
abc
bcd
def

ABCabcd
DEFdef
EFGabcd
HIJabc
KLMdefg
XYZabc
opqr
stuv

$ perl zerlegen.perl 
ABCabcd	ABC	abcd
EFGabcd	EFG	abcd
KLMdefg	KLM	defg
HIJabc	HIJ	abc
DEFdef	DEF	def
REST : XYZabc opqr stuv