如何匹配文件里一行中有多个符合条件的结果并作改动

heroinhell

文件中摘了几行：   
                               XX  90040567=   0.0,
   4.2,   4.2,   4.2,   3.5,   3.9,   3.3,   3.8,   3.4,   -3.9,   3.1,
  -1.6,  -1.3,  -1.7,  -2.0,  -1.5,  -0.5,  -4.8,  -5.5,  -3.7,   9.0,

我想匹配(-?\d+\.\d+)这些数字，判断其绝对值是否大于4，就把那个数改成0.0，否则原样输出
请问我该怎么做

cinanine

heroinhell

多谢

Perlvim

美女用的什么编辑器，很酷。看样喜欢 List::MoreUtils 模块。