Select Code to Download

    $status eq "yes"

    $status == "yes"

    $text3 = @$text;

    shift(@$text);

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

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