#!/usr/bin/perl

#use v5.12.2;
use strict;
use warnings;

while(my $line = <DATA>){
    chomp $line;
    my @nums = split(/\./, $line);
    print "@nums\n";
}

__DATA__
1.2.56.3
3.55.7.3