Select Code to Download

#!/usr/bin/perl -w
 
my $path='/tmp/foo';
my @ex=('/tmp/foo', '/tmp/foo/', '/tmp/foo/bar', '/baz/tmp/foo/', '/tm
+p/food');
 
print join(" ", grep( /^$path(?=(\/[\w\/]*|$))/, @ex)), "\n";