#!/usr/bin/perl

use strict;
use warnings;

my $string = 'Apropovir,"Atripla(tenofovir+emtricitabine+ efavirenz)",';

my @tokens = split(/,/, $string);
s/^"//, s/"$// for @tokens;

for my $token (@tokens) {
   print "$token\n";
}