#!/usr/bin/perl
use strict;
use warnings;
open FIN, "<input.data" or die $!;
my @line = <FIN>;
close FIN;

while(<DATA>){
	chomp;
	my $data = $_;

	for my $line (@line){
		chomp($line);
		if($data =~ m/$line/){
			print "$line +++++++++ $data\n"
		}else{
			print "$line --------- $data\n"
		}
	}
}


__DATA__
some path/to/foo/bar\[1\]\[2\]
thing apple/flower\[7\]
gogo dog/cat\[9\]\[8\]