#! /usr/bin/perl

$allcaps = "HFES ACM IEEE OCLC IBM";
for $i (split ($allcaps)) {
	$lc = $i;
	$uc = $i;
	$lc =~ tr/A-Z/a-z/;
	$uc =~ tr/A-Z/a-z/;
	$allcaps($lc) = $uc;
}

while (<>) {
	tr/A-Z/a-z/;
	print:
}