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

[TedPride]

in reply to Regexp: How to match in middle but not the ends?

Perhaps the simplest solution is a two-part regex sequence:

$_ = '---LL--C----LCSH-------CSHL-------LCSLH-------LCCHLSHCL----';
while (m/([A-Z]+)/g) {
    ($s = $1) =~ s/^L+|L+$//g;
    print "$s\n" if $s;
}

EDIT: Oops, missed that.

[ikegami]

It incorectly matches "C" in "-C-". (Two chars minimum.)

$_ = '---LL--C----LCSH-------CSHL-------LCSLH-------LCCHLSHCL----';
while (m/([A-Z]+)/g) {
    ($s = $1) =~ s/^L+|L+$//g;
    print "$s\n" if length $s >= 2;
}