#!/usr/bin/perl
# file:   foo.pl
# Usage:  ./foo.pl /path/to/data.d
use warnings;
use strict;

while (<>) {
    my ($foo, $bar, $baz) = split;
    # do stuff with them
}

# report results