perl filter for mixing perl and SQL