Help for this page

Select Code to Download

Select or download this

use Modern::Perl;

my $IPs =  '192.168.1.1-192.168.1.254';
$IPs =~ s/(.+\.)(\d+)(\s*-\s*.+\.)(\d+)/$1 . ($2 - 1) . $3 . ($4 + 1)/
+e;
say $IPs;

Select or download this
```
192.168.1.0-192.168.1.255
```