#!/usr/bin/perl

use strict;
use warnings;

while(<DATA>) {

      chomp;
     (my $text, my $numerical) = split(/\./,$_,2);

      print "$text: \n";
      print "$numerical: \n";
}
__DATA__
abc.1.0.1.0
bnnn.1.0.1.1
dnnnnn.1.0.2.0