#!/usr/bin/env perl -l

use strict;
use warnings;

use Text::CSV;

my $csv = Text::CSV::->new;

while (my $row = $csv->getline(\*DATA)) {
    next unless $row->[2] =~ /^[^.]*[.][^.]*$/;
    $csv->print(\*STDOUT, $row);
}

__DATA__
cls1,37,Media.vdenc.abcunit,media_vd
cls2,7,Media.Wigig.plsunit,media_vd
cls3,27,Media.vdenc,media_vd
cls4,47,Media.hevc,media_vd
cls5,57,Media.ENC,media_vd