perl regex

Er der mon en der han en god regex til at hive vaerdien af DATAA og DATAB ud, sjovt nok saa virker min ikke..

Dvs at resultatet skal ende med at jeg har 192.168.2.11 og 1.0.1 i hver sin variable uden noget tekst med.

my $data = "DATAA=192.168.2.11,DATAB=1.0.1";

if ($data =~ /(\d+\.\d+\.\d+\.\d+).(\d+\.\d+\.\d+\)/){   
           
my $dataa = $1;
my $datab = $2;
        }