Reading output from TCPFlow with Perl Script

I have been playing around with TCPFlow to look at telnet traffic. What I would like to do is have the output from TCPFlow redirected to a Perl Script that watches for the phrase "Passwor开发者_C百科d:" then prints out the following password to a terminal window or separate file. How do I redirect the output from TCPFlow to my Perl Script then constantly search it to find the "Password" string? Any suggestions?

If you open TCPFlow as a subprocess open(my $infh, "<", "TCPFlow args|"), you can get its output as a filehandle. The manual page has more.