if (!defined($__registryDir)) { $__registryDir = __FILE__; ($__pathSeperator) = ($__registryDir =~ m/\bVSO\b(.*?)\bRegistry/ ); $__registryDir =~ s/\.pm$/${__pathSeperator}data/; }