Select Code to Download

my $string = '---LL--C----LCSH-------CSHL-------LCSLH-------LCCHLSHCL-
+---';
foreach (split /L*-+L*/, $string) {
        print $_,"\n" if length($_)>2;
}