Using Text::CSV::Simple, you can extract all the data like this:

#!/usr/bin/perl

use strict;
use warnings;
use Text::CSV::Simple;
use YAML;
use YAML::Dumper;

my $dumper = YAML::Dumper->new;
$dumper->indent_width(1);

my $filename = '/root/Desktop/strings.txt';

my $parser = Text::CSV::Simple->new;

my @data = $parser->read_file($filename);
print "=========list of data=========", "\n";
print $dumper->dump( { dump => @data } ), "\n";
[download]

If you just want a couple of fields for example:

use strict;
use warnings;
use Text::CSV::Simple;
use YAML;
use YAML::Dumper;

my $dumper = YAML::Dumper->new;
$dumper->indent_width(1);

my $filename = '/root/Desktop/strings.txt';

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

my @data = $parser->read_file($filename);
print "=========wanted fields=======", "\n";
print $dumper->dump( { dump => @data } ), "\n";
[download]