#!/usr/bin/perl -nlp
s/ESC(ESC|cr|lf)/\U$1/g;