my @input = qw( A/B/C/D/E/F/ A/B/C/D/ A/B/C/D A/B/C/ A/B/C A/B A );
foreach (@input){
    next if not m!((((\w+/)\w+/)\w+/)\w+/?)!;
    print "$_ has $4 $3 $2 $1\n";
}