@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";
}