remove useless perl replace function