You need code something like this:

while ( my $display = <FH> ) {
    next unless $display =~ /^TMP/;
    my @temps = $display =~ /\b\d\d\b/g;

    # more code here
    }
[download]