use warnings;
use strict;

my $muh = "10-22-03  10:04AM                 3815 bitte_lesen.txt05-30-06  02:36PM       <DIR>          database04-06-05  01:53PM                68924 desk.JPG05-07-05  05:07PM               159808 KNAPP.JPG05-01-06  12:52AM       <DIR>         logfiles02-08-06  10:14PM       <DIR>          public_html12-19-05  01:01AM       <DIR>          stats";

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