Select Code to Download

#!/usr/bin/perl

...

cwd =~ m#^(.*)(?:/|$)(??{! -f "$1/.marker"})# or die ".marker not foun
+d";
print "found in $1\n";

cwd =~ m#^(.*)(?=/|$)(??{! -f "$1/.marker"})# or die ".marker not foun
+d";