I often use XML::XSH2:

#!/usr/bin/perl

use XML::XSH2;

xsh << EOX
  open 852913.xml ;
  insert attribute 'Value="API"' into //Parameter[@Name="MapSource"]//
+Item[@Value="NONE"] ;
  save :b ;
EOX
[download]