#!/usr/bin/perl -w
use strict;

my $ip = "192.168.2.34";
my @t = split(/\./, $ip);
my $x = @t;

print "Number of elements in array: $x\n";
print "Content of array: @t\n";