while (<>) {
  next unless /^Temp:/;
  my $temp;
  if (m{(\d+)/$}) {
    $temp = $1;
  } else {
    $_ = <>; # read the next line
    next unless m{(\d+)/$};
    $temp = $1;
  }
}