@ARGV=<../*/w*/*/*z*t>;print sort{$a=~y/Bz//-$b=~y/Bz//}<>