my $temp;
while (<>) {
  chomp;
  if (s/^Temp:\s*//) {
    if (defined($temp)) { ...use $temp... };
    $temp = $_;
  } else {
    $temp .= $_;
  }
}
if (defined($temp)) {
  ...use $temp...
}