Assuming the first 2 directories are always starting from root and not the same all time, this code would be useful.

@files = qw(/mydirectory/directory1/test/z2.htm
        /mydirectory/directory2/other/testhere.htm
        /mydirectory1/directory/test/dir/z6.htm);

s[/.*?/.*?/][] for @files;
print join "\n", @files;
[download]

artist