while(<>)
{
    print if(substr($_,-3,2) eq ".c");
}