fix up the perl code cleanup