Select Code to Download

@files = qw(/mydirectory/directory/test/z2.htm
        /mydirectory/directory/other/testhere.htm
...
my @paths = grep s#$root##, @files;

print "$_\n" for @paths;