){
chomp;
foreach $is (@MetaList){
next unless($_=~$is);
$Meta{$is}=$_;
$Meta{$is}=~s|^.*?:||;
}
push(@il,$_);
$Meta{Filename}.="
Error found in Document!" if(/Error/);
}
close PIPE;
$Meta{MetaInfos}="".join('
',@il)."";
if($File=~/\.doc/){
$Meta{"DocumentContent"}="";
my $ii=0;
my $is='';
open(PIPE,"$Bin/lhalw -FN -c 50 '$Dir/$File' |");
while(){
chomp;
last if($ii==10);
$ii++;
$Meta{"DocumentContent"}.="$_ (...truncated)\n";
}
close(PIPE);
$Meta{"DocumentContent"}.="\n(...truncated)";
}
foreach $is (@MetaList){print INDEX"$Meta{$is} | \n"}
print INDEX"