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);


##</code><code>##

Power on hours =
--snipped, above repeats 20 times--
Power on hours = 916
--snipped, above repeats 20 times--