Select Code to Download

if ( /1tally\s\s(\d+)\s+nps\s=/i ) {
  foreach ( 1 .. 5 ) {
...
  }
  next;
}

while (<OUT>) {
  last if /^\s+energy\n$/;
...
  $energy_value = $1.$dot.$2.$3.$4;
#...
}