#!/usr/bin/env perl

use strict;

my $file = shift;

open(FILE, $file) || die "Unable to open $file for reading: $!\n";

while(<FILE>)
{
    my @sf = split;

    #print "@sf\n"; print test

    my @nums = split(/\\./, $sf[0]);

    #print "@nums\n";

    print "$nums[0]\n";

}