Laptop Low battery alert perl , Voice activated

#!/usr/bin/perl
open(FILE,"/proc/acpi/battery/BAT0/state");

while($line=<FILE>)
        {
        if(($line=~/remain/i)&&($line=~/(.*)(\s+)([0-9]{1,9})(.*)/))
                {
                system('espeak -s 100 "Battery is low , please make charge" > /dev/null 2>&1')  if($3<600);

                system('espeak -s 100 "Machine fully drained, Will be down in 2 minutes" > /dev/null 2>&1 ') if($3<100);
                system('espeak -s 100 "Game over Game over Game over" > /dev/null 2>&1 ')  if($3<70);

                system('sudo init 0') if($3<45);

                }
        }
close(FILE);