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";

my @inhalt = split(/\s+/, $muh);

my $i = 0;
my $g;
my %hash;
my $whatsin;

while ($inhalt[$i]) {
  $g = $i + 1;
  $whatsin = $inhalt[$i];
  if ($whatsin eq '<DIR>') {
    %hash = ($inhalt[$i] => $inhalt[$g]);
    print "$hash{'<DIR>'}\n";
  }
  $i++;
}