$ perl -nle 'print for /(?:\d{1,3}\.){3}\d{1,3}:\d{1,4}/g' file.txt >output.txt