#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
my $string = q{'som,ething', another, 'thin'g', 'her,e', gggh*};
my @spt = split(/,(?=\s+)/, $string);
print $_."\n" foreach @spt;