Text::CSV::Simple does the trick. I tried getting the 1st and the 9th fields, but I think that you want the 2nd and the 8th. Try this:

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper::Concise;
use Text::CSV::Simple;

my $datafile = '/path/to/text.csv';

my $parser = Text::CSV::Simple->new;
$parser->want_fields(2,8);

my @data = $parser->read_file($datafile);
print Dumper(@data);
[download]