There is way to split the above variables as follows

@array=("abc.1.0.1.0","bnnn.1.0.1.1","dnnnnn.1.0.2.0");
foreach (@array){
if($_=~/(\w+)\.(\d{1,2}\.\d{1,2}\.\d{1,2}\.\d{1,2})/)
{
print "$1 :::::: $2\n";
}
}
[download]