print ($File::Find::name =~ m!^/some/path/prefix/(.*)$!i);