my @arr1 = split("(')", "ab''c");

##</code><code>##

my @arr1x = split("('+)", "ab''c");
my @arr1;
foreach (@arr1x) {
  if (/'/) {
    push @arr1, ('') x length($_);
  }
  else {
    push @arr1, $_;
  }
}