if ($type eq 'r'( {
	$text =~ tr/N-ZA-Mn-za-m/A-Za-z/;
}