$telnet->waitfor('/$device"."# /i');   ##wait for prompt

##</code><code>##

$telnet->waitfor( qq{/$device"."# /i} );   ##wait for prompt