#! /usr/bin/perl

use warnings;
use strict;

while ( <> ) {
    s#\\<\\<#\\<\\!\\!\\<#g;
    s#\\>\\>#\\>\\!\\!\\>#g;
    print;
}