johngg@shiraz:~/perl/Monks > cat > gtype.txt
goat
grate
grip
johngg@shiraz:~/perl/Monks > ls gtype*
gtype.txt
johngg@shiraz:~/perl/Monks > perl -pi.BAK -e 's{^g}{};' gtype.txt 
johngg@shiraz:~/perl/Monks > ls gtype*
gtype.txt  gtype.txt.BAK
johngg@shiraz:~/perl/Monks > cat gtype.txt
oat
rate
rip
johngg@shiraz:~/perl/Monks > cat gtype.txt.BAK 
goat
grate
grip