$exp->expect($timeout,
             [ qr /pattern/ => sub { do things; } ]
            );