$exp->expect($timeout,
   [ qr/regex1/ => sub {
      my $exp = shift;
      ...
      $exp->send("response\n");
   } ],

   [ qr/regex2/ => sub {
      my $exp = shift;
      ...
      $exp->send("response\n");
   } ],
);

$exp->expect($timeout,
   [ qr/regex1/ => sub {
      my $exp = shift;
      ...
      $exp->send("response\n");
      exp_continue
   } ],
);