How to search and replace text characters in a perl script

#!/usr/bin/perl -i.before_postproc

...
    }
}

G92 E0 ; want to remove all G92 lines (works now)
T1
...
G1 Z0.050 F7800.000
G11 ; unretract
G92 E0

T1
G1 Z-0.050 F7800.000
...
G1 Z-0.050 F7800.000
M400 ; wait for moves to finish
M104 S100 ; laser on

Select Code to Download