##
1.2.56.3
##
##
$nums[0] = 1,
$nums[1] = 2
$nums[3] = 56
etc
##
##
#!/usr/bin/env perl
use strict;
my $file = shift;
open(FILE, $file) || die "Unable to open $file for reading: $!\n";
while()
{
my @sf = split;
#print "@sf\n"; print test
my @nums = split(/\\./, $sf[0]);
#print "@nums\n";
print "$nums[0]\n";
}