my @chunks = split /\\/ => $data;
    splice @chunks => -2, 1 if $chunks [-1] eq 'final';
    $data = join "\\" => @chunks;