$stripped = $select =~ s/ ( ' .*? ' ) /'_' x length $1/egrx;