$status eq "yes"

##</code><code>##

    $status == "yes"

##</code><code>##

    $text3 = @$text;

##</code><code>##

    shift(@$text);

##</code><code>##

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

##</code><code>##

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