Select Code to Download

#! perl -slw
use strict;
...
/user/protrusions/
/user/a/
/user/backups

P:\test>test2
Allowed. [/user/prot/]
Disallow!! [/user/protrusions/]
Disallow!! [/user/a/]
Disallow!! [/user/backups]