#! /bin/bash

perl -n -e '
    while (m/.*?([12]?[0-9]{1,2}\.[12]?[0-9]{1,2}\.[12]?[0-9]{1,2}\.[12]?[0-9]{1,2})/g) {
        $a{$1} or print $1."\n";
        # $a{$1}=1;
    }
    '