#!/usr/local/bin/perl

print "<DIR>\n";

while (<>) {
    m#/([^/]*)$#;
    $dir=$`;
    $file=$';
    $dir{$dir}.="\123$file";
}