Beispiel:
abc!nop -> abc!!nop -> abc!\nop
$main::lxdebug->enter_sub();
my $old_form = YAML::Dump($main::form);
$main::lxdebug->enter_sub();
my $old_form = YAML::Dump($main::form);
$old_form =~ s|\n|!n|g;
$old_form =~ s|\r|!r|g;
$old_form =~ s|\n|!n|g;
$old_form =~ s|\r|!r|g;
$old_form =~ s|!r|\r|g;
$old_form =~ s|!n|\n|g;
$old_form =~ s|!r|\r|g;
$old_form =~ s|!n|\n|g;
my $new_form = YAML::Load($old_form);
map { $form->{$_} = $new_form->{$_}; } keys %{$new_form};
my $new_form = YAML::Load($old_form);
map { $form->{$_} = $new_form->{$_}; } keys %{$new_form};