perl -ne 'print if /(\d{1,3}\.){3}\d{1,3}/;'