Re^4: Loop Array - If $var is something write values until $var is something else

Select or download this

my @result;
foreach my $x (@cleared) {
...
        }
    }
}

Select or download this

$VAR1 = 'JOB::HEREISASTRING';
$VAR2 = 'Something';
...
$VAR20 = 'StringN';
$VAR21 = 'StringO';
$VAR22 = 'StringP ';

Select or download this

JOB::HEREISASTRING
~~Something Else~~Something
...
~~Something~~StringN
~~Something~~StringO
~~Something~~StringP

Select or download this

JOB::HEREISASTRING
~~Something Else~~Something Else (could be removed)
...
~~Something Else~~StringN
~~Something Else~~StringO
~~Something Else~~StringP

Select Code to Download