Perl preprocessor