my $str = $change_in_place && $default_argument ? $_ : $_[0];
  $str =~ s/^($lchompstr)*//;
  $_[0];
}

##</code><code>##

  (my $str = $change_in_place && $default_argument ? $_ : $_[0]) =~ s/^($lchompstr)*//;
  $_[0];
}

##</code><code>##

.
.
.
if($change_in_place && $default_argument) {
    s/^($lchompstr)*//
  } else {
    $_[0] =~ s/^($lchompstr)*//;
  }
  $_[0];
}