foreach my $file ( @LIST )
{ 
 $file =~ s/^\/mydirectory\/directory\//;
 next;
}