my $io = io("$host:$port");
while ($_ = $io->getline) {
   next unless /some_regex/;
   # do stuff with line
}