trunk/filter/croascii.pm


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

1;
1
2	sub croascii {
3	my $out = "";
4	foreach (@_) {
5	tr/~^}]{[\|\`@/ÈæÆ¹©ðÐ¾®/;
6	$out .= $_;
7	}
8	return $out;
9	}
10
11	1;