my $subst_re = qr{^($lchompstr)*};
...
s/$subst_re//;