Select Code to Download

  if ($left .. $right)
  {
    ...
  }

  while (<DATA>)
  {
...
  second
  third
  fourth

  while (<DATA>)
  {
...
  fourth
  fifth
  end

  while (<DATA>)
  {
...
  second
  third
  end

  while (<DATA>)
  {
...
  third
  fourth
  fifth

  while (<DATA>)
  {
...
  2       fourth
  3       fifth
  4E0     end

  while (<DATA>)
  {
...
  3       second
  4E0     end
  1E0     start third end

  while (<DATA>)
  {
...
  __OUTPUT__
  1       start first end
  2       ignore