Try this @arr = split /(".+?")|,/, $s ; print @arr;