#!/usr/bin/perl

use strict;
use Data::Dumper;

my $INI_DIR='/shares/MILKLINK/PPdir';
my $REG;
print "Enter Reg Number: ";
chomp ($REG = <>);

my @FILE = `find $INI_DIR -name *.dpt | xargs grep -l $REG`;
print Dumper(\@FILE) . "\n";