Shell Programming and Scripting

use strict;
my %hash;
open my $fh,"<","file2.txt";
while(<$fh>){
	chomp;
	my @tmp=split(/\|{3}/,$_);
	$tmp[1]=~s/^\s*//;
	$tmp[1]=~s/\s*$//;
	$hash{$tmp[1]}=$_;
}
close $fh;
while(<DATA>){
	foreach my $item(keys %hash){
		if (/$item/){
			print $hash{$item},"\n" ;
			delete $hash{$item};
		}
	}
}
__DATA__
bla bla bla jkl bla bla bla 
def foo test 123. abc kek jkl