while ($text =~ m/'(((\\')|[^'])*)'/g) {
  if (length($1) > 3) {
    ...do something...
  }
}

##</code><code>##

while ($text =~ m/'(((\\['\\])|[^'])*)'/g) {