Help for this page

Select Code to Download


  1. or download this
    while (<DATA>) {
    print "$_\n" for /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,4})/gi;
...
127.0.0.1:22 more stuffs 10.2.2.8:8080
nothing here
3.4.5.6:1 100.200.100.200:3000
  2. or download this
    use strict;
use warnings;
while (<>) {
    print "$_\n" for /(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,4})/gi;
}