Select Code to Download

# print each line after replacing "go" with "/"
while (<FILE>) {
...
    print;
}
print STDERR "There were $count lines starting with 'go' in this file\
+n";