net::telnet match statement

[labnotes]

Good morning
I am working on a perl telnet script using module "net::telnet" and have multiple and different matches e.g:

sub Telnet_Wait
{
my $timeout = shift;
my ($before,$match) = ();

($before,$match) = $telnet->waitfor( timeout => $timeout,
match => '/OK/',
match => '/BUSY/',
match => '/NO CARRIER/',
);

return($before, $match);
}
The next call to this function may have more or less possible matches, can I make my match statement flexible?

Thank you inadvance

 

[max1x]

if I remember correctly, you can use regex when using the -match => '/OK|BUSY|NO CARRIER/i'