my $message = uc <>;
$message =~ tr/A-Z0-9//cd;		# remove punct, etc
$message =~ tr/JQ/IO/;