while(@data = $sth->fetchrow_array()) { $result = `grep -i -w -c "$data[0]" /u05/oracle/R12COE/spotlighter/Search_Files/Forms/*`; @search = split('\n',$result); $arrsize = @search; for($i = 0; $i < $arrsize; $i++) { ($path, $count) = split(':',$search[$i]); ($filename, $fextn) = split('\.',$path); $filename = `basename $path`; #$fextn = `echo $fname | sed 's/.*\.//'`; #$fname = `echo $path | perl -pe 's|.*/||'`;