total 4
-rw-r--r--   1 sreesha    staff        148 Jun 27 17:51 log-469
-rw-r--r--   1 sreesha    staff        126 Jun 28 09:54 log-471

##</code><code>##

opendir dhandle,"log";
@dots = grep { /^log/ } readdir(dhandle);
for $item(@dots)
{
	@files=`ls -l $item`;
	 print @files;
}

##</code><code>##

-rw-r--r--   1 sreesha    staff        148 Jun 27 17:51 log-469