Sorry I was not aware its not your name and yes tag line is cool. So far I have this much. code, I want to go into subdirectories from there. and "mdp" is a pattern I want to match. Power artist has directories and in those there are several sub directories I just want to traverse and get the line from the file in those sub-directories. ---------------------------------------- 1 #!usr/bin/perl; 2 3 use strict; 4 use warnings; 5 6 7 $| = 1; 8 9 10 sub main{ 11 12 my $directory = '/nfs/fm/stod/stod1031/w.eakanoje.101/power_artist_2/'; 13 opendir (DIR, $directory) or die "Cannot open directory $directory"; 14 # while (my $file = readdir(DIR)){ 15 # next if($file =~ m/^\./); 16 # print "$file\n"; 17 # } 18 19 my @out = glob("mdp*"); 20 21 print "@out\n";