in reply to pattern Matching

See m// in Regexp Quote-Like Operators in perlop

print "found it\n" if m{test/comp/test1/test2};

[download]

In Section Seekers of Perl Wisdom