projekt kivitendo

  my $in      = shift;

  my $out     = '';

  my $escaped = 0;

  foreach my $char (split m//, $in) {

    if ($escaped) {

      $out     .= $char;

      $escaped  = 0;

    } elsif ($char eq '\\') {

      $escaped  = 1;

    } else {

      $out     .= $char;

    }

  }

  return $out;