for my $file ( $muh =~ /<DIR>\s*([\w.-]+)/g ) {
    $file =~ s/\d\d-\d\d-\d\d$//;
    print "$file\n";
}