You can also use the map way:

use strict;
use warnings;

my $root = "/mydirectory/directory";

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

map( s/$root//, @files );
foreach (@files) { print "$_\n"; }
[download]

------------
..::KRaL::..
(sorry for my english)