#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my @data  = <DATA>;
my @status = @data;
my @temperature;
for (@data) {
    shift @status;
    last if /^\s*$/;
    push @temperature, $_;
}
say "Temperature:";
print @temperature;
say "Status:";
print @status;

__DATA__
CPU Temp = 30
GFX Temp = 45
RAM Temp = 40

CPU Status = OK
GFX Status = OK
RAM Status = OK