my @result = $t->cmd('who'); if (grep /pkmsqa/, @result){ .... } [download]
In reply to Re: Matching prompt in Net::Telnet by laceytech in thread Matching prompt in Net::Telnet by kkarne