for my $file ( $muh =~ /<DIR>\s*([^\s]+)/g ) {