Select Code to Download

pseudo code:
#!/usr/bin/perl -w

...
chomp(@LINES, $FH);
close $FH

Linux grep:

#grep -l ABC123 */*.dpt
lloydf/test.dpt <-- I need to read this file.