Re: Converting an IP from hexadecimal to dotted-quad

[Abigail-II]

Here's one way, using Regexp::Common, although it's unlikely to be the most efficient:

use Regexp::Common;
$ip =~ s(
    ^$RE{net}{IPv4}{hex}{-sep=>''}{-keep}$
){
    join '.', map { hex } $2, $3, $4, $5
}xe;