@lines = $RefLine =~ /(\([a-z]*\)[^\(]*)/g;