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