- or download this
$line =~ /pattern\s*=*\s*([\w\d\s\\\/\.\-\@\!\$\%\^\&\*\:\;\,\<\>]+)/
- or download this
$line =~ /pattern\s*=*\s*(.+?)\s+[^#]/
- or download this
use strict;
use warnings;
...
regex = (?<First>2[0-4]\d|25[0-5]|[01]?\d\d?)\.(?<Second>2[0-4]\d|25[0
+-5]|[01]?\d\d?)\.(?<Third>2[0-4]\d|25[0-5]|[01]?\d\d?)\.(?<Fourth>2[0
+-4]\d|25[0-5]|[01]?\d\d?)
pattern = 255.257.0.0 # invalid
pattern = 192.168.1.1