There's enough up there about the correct use of glob() and of m{}.

I'd like to point out it's silly to glob on *.* and then ignore anything not matching *.c. Be more specific in the glob and you won't need the internal condition:

use 5.010;
say for glob '*.c';

# or if you're doing more than using the filename once .. 

for my $file ( glob '*.c' ) {
    print $file, "\n";
    lots_of_complicated_code( $file );
}
[download]