#!/usr/bin/perl -n0777
for my $n (0..127) {
    my ($fn,$u1,$len,$u2)=unpack"Z48VVV",substr($_,0,60,'');
    if ($fn) {
	push @fn,$fn;
	push @len,$len;
    }
}
for my $n (0..$#fn) {
    (my $fn=$fn[$n])=~s/.*\///;
    open F, ">",$fn or die "$fn: $!";
    print F substr($_,0,$len[$n],'');
}
