use Filter::Simple; FILTER_ONLY code_no_comments => sub { $]<5.009004 && s/\bUNITCHECK\b/CHECK/g };