#!/usr/bin/perl

print '',( `acpi` =~ /(\d+)%/ )[ 0 ] // '??', "%";