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