#!perl -wi.bak # fixPPMXMLfile $ARGV[0] = 'D:/ActivePERL/site/lib/ppm.xml'; while ($line=<>) { $line =~ s#()(