# match > at the beginning of a line or not preceeded by -
@infosyst=$telnet->waitfor('/(\A|[^-])>/');