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