G'day Eshan_k,

When dealing with CSV data, reach for Text::CSV. If you also have Text::CSV_XS installed, it will run faster. It makes this sort of task trivial.

#!/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
[download]

Output:

cls3,27,Media.vdenc,media_vd
cls4,47,Media.hevc,media_vd
cls5,57,Media.ENC,media_vd
[download]