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

for (@dirs)
{
 s/^$basedir//;
 print "$_\n";
}
[download]

--
Regards,
Helgi Briem
helgi DOT briem AT decode DOT is