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

my $root  = '/mydirectory/directory/';

my @paths = grep s#$root##, @files;

print "$_\n" for @paths;