optimization for Perl (--folding)
update