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