Re^2: Regexp: How to match in middle but not the ends?

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

matches at least 3 characters and thus should be print join ', ', $string =~ /([CSH][CSHL]*[CSH])/g; (as you mention somewhere else in this thread).

-- Hofmator

Comment on Re^2: Regexp: How to match in middle but not the ends? Select or Download Code