>type !.xml
<campaign action="0" menuid="10118">
  <phonenumbers>
    <phonenumber number="9163723752" />
    <phonenumber number="9166413900" />
  </phonenumbers>
</campaign>

>type !.pl
use XML::Simple qw( XMLin XMLout );

# It didn't think "!.xml" was a file name until I added "./".
# Options were lowercase in older versions (like the one I have.

my $xml = XMLin('./!.xml', keeproot => 1, forcearray => 1);
print XMLout($xml, keeproot => 1);

>perl !.pl
<campaign menuid="10118" action="0">
  <phonenumbers>
    <phonenumber number="9163723752" />
    <phonenumber number="9166413900" />
  </phonenumbers>
</campaign>