$PortObj->are_match("abcd"); # Pattern to match
send_prompt();  #I presume this happens?

while (!$PortObj->lookfor()  )
{
   print("Pattern is not detected\n");
   send_prompt();  #re-prompt
}

# pattern is detected here ... we continue