Help for this page

Select Code to Download

Select or download this

use 5.010;
my @lines = ("ip:192.168.243.1", "ip:192.168.243.2" =~
...
__END__
ip:192.168.243.1
ip:192.168.243.2

Select or download this

my @lines;
$lines[0] = "ip:192.168.243.1";
push @lines, $1 if "ip:192.168.243.2" =~ /(ip:[0-9]{1,3}\.[0-9]{1,3}\.
+[0-9]{1,3}\.[0-9]{1,3})/;