Your immediate problem is that you're comparing $status with "yes" using a numeric comparison. It should be:

    $status eq "yes"
[download]

instead of

    $status == "yes"
[download]

That should fix this problem that you're having.

But you have some other weirdnesses in your code, as well:

• I'd *really* rethink your current system of declaring a named sub within another sub. That's just a recipe for trouble. I'd go with an anonymous closure, which seems to be sort of what you're aiming for, here, but it'll be much cleaner.

• Rethink the variable names. :) $extra2 and $extra4 tell me nothing as to their purpose.

• This line:

      $text3 = @$text;
  [download]

  I don't think that's doing what you think it's doing. To be honest, I don't know what you think it's doing, because in the next line you use a regex on it, checking for a comma. Why?

  I'll tell you what that line does: it dereferences the array @$text, then evaluates that array in scalar context, which returns the length of the array. So $text3 holds the length of @$text. Is that what you wanted?

• Why are you getting rid of the first line of text?

      shift(@$text);
  [download]

  Perhaps the text you're expecting is different than the text I was testing with, but that doesn't seem right.

• There's a much easier way of doing this:

      while ($extra2 <= $#$text) {
          $text[$extra4] = $$text[$extra2];
          $extra2++;
          $extra4++;
      }
  [download]

  Use an array slice:

      @text = @{$text}[$extra2..$#$text];
  [download]