gistfile1.txt

#!/usr/bin/perl -w

$keybLevel=`ioreg -n "AppleBluetoothHIDKeyboard" | grep -i "batterypercent"`;

chomp ($keybLevel);

$keybLength=length ($keybLevel);

$keybLevel=substr($keybLevel,($keybLength-2),3);

print "<result>$keybLevel</result>";