Help for this page
/$re/ and print while <>
while( <> ) { while( /\b(\d+\.\d+\.\d+\.\d+)\b/g ) { ... } } }