#! /usr/local/bin/perl

while (<>) {
    s/(\(\\\\\(\) show i str cvs show \(,\) show j str cvs show \(\\\\\)\) show)/%%$1/;
    print;
}