#!/usr/bin/perl


open (FH, $ARGV[0]);
while(my $w = <FH>) {
    my @matches = $w =~ m/(\d{1,2}\.\d{1,2}\.\d{4})(\t{1,2})(\d)/g;
    print($1 . " " . $3 . "\n");
}

__DATA__
1.1.2003    4       2.4.2085    7       2.1.2054    6
2.1.2054    6       2.1.2054    6       2.1.2054    6