如何用perl编辑数据文档

如何用perl编辑数据文档
刚学习PERL！还是个新手，想请教各位应该怎么写这么一个程序！
我有这样一个文件，数据格式如下：
run 1 1 0.123 sun 2 1 0.1 tree 3 2 0.25.....
第一列是单词，第二列是这个单词的序列号，比如run的序列号就是1，sun的序列号就是2，以此类推。第三列是这个单词的出现频率，比如run的频率就是1，sun的也是1，tree就是2。 第四列是该单词的权重，比如run的权重就是0。123， sun的权重就是0.1， 依此类推。
我现在想将所有的其他列都去掉，只保留权重这列，即只保留4，8，12....
如何能用perl实现这个功能呢？很多人告诉我用perl来处理这类工作比别的语言要便捷很多，哪位高手能提供一些建议或实例。我在此先多谢了！

m/\b(0\.\d+)\b/g（如果权.
m/\b(0\.\d+)\b/g（如果权重是这样的格式的话），保留到array中作后继处理。这只是TIMTOWTDI之一

之二--@all=split /\s+/.
之二
@all=split /\s+/, $raw_data;
print qq(@all[grep{($_+1)%4==0} 0..$#all]);

print split /\w+?\s\d+.
print split /\w+?\s\d+?\s\d+?\s/,$data

多谢各位的帮助，再次感谢.
多谢各位的帮助，再次感谢！！！