求程序，怎么用perl在3级结构中，判断小区状态？ 谢谢

BCF-0001  BTSPLUS-M    U WO                     
  09238 11451 BTS-0001  U WO                                               
      DAXING1          RF/-                                                   
         EDGE TRX-001  U WO     
         EDGE TRX-002  U WO     
  09238 11452 BTS-0002  U WO                                    
      DAXING2          RF/-                                                   
         EDGE TRX-003  U BL-TRX  
         EDGE TRX-004  U WO     
         EDGE TRX-005  U WO      
  09238 11453 BTS-0003  U WO                              
      DAXING3          RF/-                                                        
         EDGE TRX-006  U BL-TRX

以上的一组数据有3级结构，第1级，关键字是"BCF-",它的状态是同行的“U WO”；第2级，关键字是"BTS-",它的状态是同行的“U WO”;第3级，关键字是"TRX-",它的状态是同行的“U WO”.
每个第一级(BCF-)下有最少1个，最多4个第二级(BTS-),每个第二级下最少1个，最多10个第三级（TRX-）
    现在想根据这3级的状态来输出第二级(BTS-)的状态。如果第一级是“U WO" 并且 第二级是"U WO" 并且第三级至少有1个TRX-是“U WO”，则第二级(BTS-) (用每个BTS-之前的5位数字表示）的最后状态为ok，否则为bad。（循环判断，文件中有很多组这种结构）
    最后想得到如下结构
11451   ok
11452   ok
11453   bad

用很笨的方法实现了，唯一的优点是如果数据量很大，不会耗内存。仅供参考 如果使用范围操作符，然后正则判断一下，应该能写出更简洁高效的代码。暂时没掌握，等待高手出招。