trunk/filter/croascii.pm


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

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