while (<>)
{
if ($theCfile eq "\.c\$")
{
print $_;
}