For the problems you're having with "open", perhaps you should ask Perl to tell you what the problem is - by including $! in your error message.

For parsing and changing XML, you should probably be using an XML parsing module rather than regexes. Sounds like XML::Treebuilder would be best for this job.