#!/usr/bin/perl

open (AB, "allofthem"); 
while ($x = <AB>) {
  if ($x =~ /^\s*(.*)\/\w+.java\s*$/) { 
    $folders{$1} = $1; 
  } else {
    print $x;
  } 
}
close(AB); 

foreach $k (sort keys %folders) {
  print "mkdir -f ../", $k, "\n"; 
}