my $response = "NB_CLT_7.6.0.2\r";
...
...
[ qr/Enter pack name \(or q\) \[q\]:\s+/ => sub {
                 $exp->send($response);
                 $response = "q\r";
                 exp_continue;
                 }
         ],