Select Code to Download

my $temp;
while (<>) {
...
if (defined($temp)) {
  ...use $temp...
}

while (<>) {
  next unless m{(\d+)/$};
  my $temp = $1;
  ...use $temp...
}

while (<>) {
  next unless /^Temp:/;
...
    $temp = $1;
  }
}