use Regexp::Common qw /net/;

 /^$RE{net}{IPv4}$/;
 # Results in $1 .. $5 .. Please RTFM for details.