#!/usr/local/bin/perl -w
#
# Convert ISO 8896 Latin 2 into from LaTeX encoding

$c = "\xE8";
$C = "\xC8";
$s = "\xB9";
$S = "\xA9";
$z = "\xBE";
$Z = "\xAE";

while (<>) {
if (/[$c$s$z$C$S$Z]/) {
    s/$c/\\v\{c\}/g;
    s/$C/\\v\{C\}/g;
    s/$s/\\v\{s\}/g;
    s/$S/\\v\{S\}/g;
    s/$z/\\v\{z\}/g;
    s/$Z/\\v\{Z\}/g;
    }
    print;
}