print $entry, "\n" if ( $entry =~ /\.doc$/i );