Perl - Abrieno y escribiendo Archivos en Perl

Hola a todos:estoy tratando de abrir un archivo (/httpd)y grabar. Con este codigo luego que se ejecuta la linea 5 la graba al principio del archivo, lo que yo quiero hacer es que la linea que comienza con $i ( poque esto esta adentro de un foreach) se sustituya por lo que se ingreso en la linea 5( se entiende?) no se si se puede hacer eso1- open(HTTPD," </httpd");2- a=<HTTPD>3- $aux=`cat /httpd | grep ^$i`; 4- print ("Actualmente esta asi: $aux "); 5- $opc=<STDIN>6- chop($opc);7- print HTTPD "$opc\n"; 8- close (HTTPD);