That will work only if some file is an absolute path name, which isn't quite what's indicated. To get the relative paths per the example, you'd need to append "../" to the beginning of the file name for each level deep you are in the directory tree--a bit of a trick using find, but a snap for perl...