
sub croascii {
	my $out = "";
	foreach (@_) {
		tr/~^}]{[|\`@/ÈæÆ¹©ðÐ¾®/;
		$out .= $_;
	}
	return $out;
}

1;
