perl 3.0 patch #21 patch #19, continued