in reply to Help using Net::Telnet to use Rainbow
$f = $pop->waitfor('//'); print "$f\n";
From the documentation, waitfor just returns success or failure in scalar context. I'd say you probably want to call waitfor in list context:
($f) = $pop->waitfor('//'); print "$f\n";
... or even:
($f, $match) = $pop->waitfor('//'); print "$f$match\n";
print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!
In Section
Seekers of Perl Wisdom