perlquestion stallion <p>Hi monks im trying to get the file names in a directory ..but its getting repeated again and again..Pls rectify</p> <Code> foreach $file (<*.*>) { if($file =~ /\.c/) { $filename = $file; print m"$filename\n"; } } </Code>