a.pl

#!/usr/bin/env perl
use strict;
use warnings;
use XML::Simple;

my $ref = XMLin('AndroidManifest.xml');
for my $permission (@{ $ref->{'uses-permission'} }) {
  my $name = delete $permission->{'android:name'};
  print "$name\n";
  while (my ($key, $value) = each %$permission) {
    print "\t$key: $value\n";
  }
}

__DATA__
#output
android.permission.INTERNET
	android:description: @string/permdesc_sendSms
	android:protectionLevel: dangerous
	android:label: @string/permlab_sendSms
	android:permissionGroup: android.permission-group.COST_MONEY
android.permission.ACCESS_COARSE_LOCATION
android.permission.ACCESS_FINE_LOCATION
android.permission.ACCESS_NETWORK_STATE
android.permission.CONTROL_LOCATION_UPDATES
android.permission.WRITE_EXTERNAL_STORAGE
android.permission.READ_PHONE_STATE
android.permission.CAMERA
android.permission.CALL_PHONE
com.unhyde.android.ream.permission.C2D_MESSAGE
com.google.android.c2dm.permission.RECEIVE
android.permission.WAKE_LOCK