怎样提取数据，并进行进制转换，请高手帮忙！！谢谢！！

Sample TextSample Text

例如有 一堆数据：
   @001      ffffe        //comment
     @002      ff0fe        //comment
     @005      feafe        //comment

要实现将中间的十六进制提取出来，并转换成二进制！@代表行号，碰到@002 与@005  之间有缺省项，每缺省一行就以二十位的0 补上，如何用perl实现呢？？请各路高手帮忙！谢谢！！

这不是python版吗？

居然发到python版来问用perl怎么写。。。。

#!/usr/bin/env python

i = 0
for line in open('urfile', 'r'):
    i += 1
    L = line.split()
    while i < int(L[0][1:]) :
            i += 1
            print '0'*20
    print bin(int(L[1], 16))

下次上传测试数据。