if ( $line =~ $ip ) {
    push (@fwlog, $line);
    print "$line";
}