perldoc -l File/Find File/Basename #### perl -V #### use Data::Dumper; print Dumper(\%INC); #### next if ($file =~ m#/Interwoven/#);