Trocando o comando perl por sed