use File::Glob ();
foreach $file (glob('*.*')) {
    if ($file =~ /\.c/) {
        $filename = $file;
        print /$filename\n/;
    }
}