perl filter