#!/usr/bin/perl

use strict;

my $REG;
my @REGARRAY;
my $INI_DIR='/shares/MILKLINK/PPdir';

print "Enter Reg Number: ";
chomp ($REG = <>);

my $FILE = ('find %s *.dpt | xargs grep -l %s',$INI_DIR,$REG);

open $FILE, '<', my $DPT;

chomp(@REGARRAY, $FILE);
close $FILE;

foreach my $ITEM (@REGARRAY)
{
    system("/shares/optiload/prog/indref.sh $ITEM");    
}