print "string"
print("string")
print HANDLE "string"
print(HANDLE "string")

##</code><code>##

while(<FILE>) {
  s/print(\s+|\s*\(\s*)([A-Z]+\s+)?"string"(\s*\))?/1/;
  print;
}

##</code><code>##

print "string" if (somecond)       becomes 1 if (somecond)
something if print HANDLE "string"         something if 1
etc.