perl to sed