fork download 
  1. #!/usr/bin/perl -nlp
  2. s/ESC(ESC|cr|lf)/\U$1/g;
Success #stdin #stdout 0.01s 5464KB
comments (?)
stdin 
ESCESCESCESC
ESCESCESCcr
ESCESCESClf
ESCESCESCESCcr
ESCESCESCESClf
ESCcrESCESC
ESCcrESCcr
ESCcrESClf
ESCcrESCESCcr
ESCcrESCESClf
ESClfESCESC
ESClfESCcr
ESClfESClf
ESClfESCESCcr
ESClfESCESClf
ESCESCcrESCESC
ESCESCcrESCcr
ESCESCcrESClf
ESCESCcrESCESCcr
ESCESCcrESCESClf
ESCESClfESCESC
ESCESClfESCcr
ESCESClfESClf
ESCESClfESCESCcr
ESCESClfESCESClf
stdout 
ESCESC
ESCCR
ESCLF
ESCESCcr
ESCESClf
CRESC
CRCR
CRLF
CRESCcr
CRESClf
LFESC
LFCR
LFLF
LFESCcr
LFESClf
ESCcrESC
ESCcrCR
ESCcrLF
ESCcrESCcr
ESCcrESClf
ESClfESC
ESClfCR
ESClfLF
ESClfESCcr
ESClfESClf
https://ideone.com/2dajdn
language:
Perl (perl 5.28.1)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!