$^I = '.bak';
while (<>) {
   s/Z=(\d+),/  what do i do here?  /g;
   s/\bXP\b/    what do i do here?    /g;
   print
}