in reply to Re^2: Parsing "=" separated output
in thread Parsing "=" separated output

Probably better to stop looping when run out of tokens :)
shift @tokens until not(@tokens) or $tokens[0] =~ /=$/;

[download]

In Section Seekers of Perl Wisdom