http://www.perlmonks.org?node_id=267251


in reply to Changing data output

Or...


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

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

[download]


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

In Section Seekers of Perl Wisdom