Select Code to Download

use constant {
   TITLE => 3,
...
    $RT = "$1" if $lines[RT] =~ /^RTINSECONDS=(.*)/;
  }
}

{
  local $/ = ""; # Paragraph mode
...
    }
  }
}