#!/usr/bin/perl

$mode = 1;

while (<STDIN>) {
	if (/^###MESSAGE_START###/) { $mode = 0; }
	if (/^##KLUDGES##$|^###MESSAGE_END###$/) { $mode = 0; }
	if ($mode)
	{
		tr/0-9A-Za-z/I-Z0-9A-Hn-za-m/;
	}
	if (/^##TEXT##$/) { $mode = 1; }
	print;
}
