change sketch name in perl scripts