my $patt = "*".$_."*"; my $lc_file1 = ""; my $cmd = "find $dir1 \(! -name /proj/dev_dbdump/files_36 -prune\) -name $patt -print"; $lc_file1 = `$cmd`;