#!/usr/bin/perl

$data_file="/tmp/input_ext_id.txt";
open(DAT, $data_file) || die("Could not open file!");
@datas=<DAT>;

foreach $data(@datas){
$data_orig=$data;
@data=split("/",$data);
$data[4] =~ s/\.xml//ig;
chomp($data_orig);
push(@finalarr,"$data_orig#$data[0]/$data[1]/$data[2]/$data[4]");
push(@finalarr, "$data[0]/$data[1]/$data[2]/$data[4]");
}
@sorted_list = sort(@finalarr);

##</code><code>##

@datas=<FILE2>;

while ($line = <FILE1>) {
$position=rindex($line,"#")+1;
$lines = substr($line,$position);

#print $lines;

$lines =~ s/^\s//gi;


if ( grep( /$lines/,@datas) ) {
   print "$line";
}

##</code><code>##

2002/04/01/bbb/abc.xml