#!/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\]

##</code><code>##

foo/bar\[1\]
dog/cat\[9\]\[8\]

##</code><code>##

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

##</code><code>##

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

##</code><code>##

my $t = 'some path/to/foo/bar\[1\]\[2\]';
my $a = 'bar\\[1';

print "match!\n" if($t =~ m/$a/);