while (defined(my $line = <STDIN>)) {
    if ($line =~ /^inet\((\d+) active/) {
        print $line;
    }
}