#!/usr/bin/perl
use strict;

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

my @tokens=split(/,\"/,$string);#split using comma&quotes

for my $each(@tokens)
{
$each=~s/\"//;#match  quotes and substitute with nothing
print "$each\n";
}

##</code><code>##

Apropovir
Atripla (tenofovir + emtricitabine + efavirenz),

##</code><code>##

Apropovir
Atripla (tenofovir + emtricitabine + efavirenz)