c:\@Work\Perl\monks>perl -wMstrict -le
"my $file = 'foo/Devel/bar';
 print 'match' if $file =~ q|/Devel/|;
"
match