my $octet = qr{ \d+ }xms;
my $ipv4  = qr{ \b $octet (?: [.] $octet){3} \b }xms;