>perl -wMstrict -le
"my $s = q{'ab'cde'fgh'};
 my @ss = $s =~ m{ (?= (' [^']* ')) }xmsg;
 print qq{($_)} for @ss;
"
('ab')
('cde')
('fgh')