#!/usr/bin/perl

$mode = 1;

main: while (<STDIN>) {
	if (/^###MESSAGE_START###/) { $mode = 0; }
	if (/^##KLUDGES##$|^###MESSAGE_END###$/) { $mode = 0; }
	if ($mode)
	{
		tr/a-zA-Z/zyxwvutsrqponmlkjihgfedcbaZYXWVUTSRQPONMLKJIHGFEDCBA/;
	}
	if (/^##TEXT##$/) { $mode = 1; }
	print;
}
