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