#!/usr/bin/perl
use Modern::Perl;
use Diagnostics;

my (@file, $file, $filename);

@file = <DATA>;

for $file (@file) {
    if($file =~ /\.c$/i) { # match only filenames ending in ".c" or ".C"
		$filename = $file; 	
		print "$filename\n";			
	}
}

__DATA__
bzz.c
bzz.doc
pqr.cobol
xyd.foo
123.1c
def.C
foo.endswithC