That's fine, it's your baby, but technically in this case the filtering occurs after Perl loads it unlike filtering it before Perl reads it. Otherwise Perl itself is a source filter falling on the wrong side of your line in the sand.