my $hours;

open( SMRT, "/root/perk/tmpfile" );
while( <SMRT> ){
        chomp ();
        if (/Power_On_Hours(.*)/i) { $hours = $1 ; }
        @time = split(' ',$hours);
        print "Power on hours = $time[7]\n";
}
close(SMRT);