Perl source filters