actually is it possible to do the regex in one line? Then it would be possible to put it into:

$session->expect(30, '-re', qr'REGEX');
[download]