#!/usr/bin/perl -i.bak

use English;


undef $INPUT_RECORD_SEPARATOR;
$file = <>;

$file =~ s/(?<!%)%(?!%)/\\%/g;
$file =~ s/%%/%/g;


print $file;