print join ', ', $string =~ /([CSH][CSHL]*[CSH])/g;