thanks to Perl that saved me from vbs!!

Perl has useful command line switches and many useful modules: Regexp::Common is very useful in you case and prevent 333.444.555.666 to be matched.

#cat ip_data.txt
some stuff 10.0.0.1:80 stuff
127.0.0.1:22 more stuffs 10.2.2.8:8080
nothing here
3.4.5.6:1 100.200.100.200:3000
1.2.3.4


perl -MRegexp::Common="net" -lne "print $_ for /$RE{net}{IPv4}:?\d{0,4
+}/g" ip_data.txt > out.log


#cat out.log
10.0.0.1:80
127.0.0.1:22
10.2.2.8:8080
3.4.5.6:1
100.200.100.200:3000
1.2.3.4
[download]

L*