s/^(\\s*global .*), *\\\$$old/\\1/;
s,\\\$GLOBALS\['$old'\](?"\!"\\s*=),$newstr,g;
s,\\\$GLOBALS\[$old\](?"\!"\\s*=),$newstr,g;
s/^(\\s*global .*), *\\\$$old/\\1/;
s,\\\$GLOBALS\['$old'\](?"\!"\\s*=),$newstr,g;
s,\\\$GLOBALS\[$old\](?"\!"\\s*=),$newstr,g;