while (<DATA>) {

    if ($_ =~ /\d+\s+\[\d+\.\d+\.\d+\.\d+\]/) {
        print $_;
    }
}