Select Code to Download

#!/usr/bin/perl
use strict;
...
some path/to/foo/bar\[1\]\[2\]
thing apple/flower\[7\]
gogo dog/cat\[9\]\[8\]

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

foo/bar\[1\] +++++++++ some path/to/foo/bar\[1\]\[2\]
dog/cat\[9\]\[8\] --------- some path/to/foo/bar\[1\]\[2\]
...
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\]

foo/bar\[1\] --------- some path/to/foo/bar\[1\]\[2\]
dog/cat\[9\]\[8\] --------- some path/to/foo/bar\[1\]\[2\]
...
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\]

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

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