<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl
use utf8;
binmode stdin,":utf8";
binmode stdout,":utf8";

sub encode {
my $s=shift;
my @RES=();
while ($s =~ m/(.)/g) {
$c=$1;
#if ($c =~ m/[A-Za-z]/) {
push @RES, ord($c);
#} else {
#push @RES, $c;
#}
}
return join("â€¢",@RES);
}

sub decode {
my $s=shift;
my @S=split(/â€¢/,$s);
my $res="";
foreach $c (@S) {
#if ($c =~ m/^[0-9]+$/) {
$res.=chr($c);
#} else { $res.=$c; }
}
return $res;
}

while (&lt;&gt;) {
s/\\([A-Za-z]+)/"\\".&amp;encode($1)."Â§"/ge;
s/\|/Ø¡/g;
s/'A/Ø¢/g;
s/'a/Ø£/g;
s/'u/Ø¤/g;
s/'i/Ø¥/g;
s/'I/Ø¦/g;
s/'b/Ù®/g;
s/'n/Úº/g;
s/'f/Ú¡/g;
s/'q/Ù¯/g;
s/s-h/Ø³Ù‡/g;
s/t-h/ØªÙ‡/g;
s/z-h/Ø²Ù‡/g;
s/d-h/Ø¯Ù‡/g;
s/A/Ø§/g;
s/b/Ø¨/g;
s/t\*/Ø©/g;
s/c/Ø«/g;
s/t/Øª/g;
s/j/Ø¬/g;
s/H/Ø­/g;
s/x/Ø®/g;
s/dh/Ø°/g;
s/d/Ø¯/g;
s/r/Ø±/g;
s/zh/Ú˜/g;
s/z/Ø²/g;
s/sh/Ø´/g;
s/s/Ø³/g;
s/S/Øµ/g;
s/D/Ø¶/g;
s/T/Ø·/g;
s/Z/Ø¸/g;
s/`/Ø¹/g;
s/R/Øº/g;
s/f/Ù/g;
s/q/Ù‚/g;
s/k/Ùƒ/g;
s/[Ll]/Ù„/g;
s/m/Ù…/g;
s/n/Ù†/g;
s/h/Ù‡/g;
s/U/Ùˆ/g;
s/I/Ù‰/g;
s/Y/ÙŠ/g;
s/p/Ù¾/g;
s/C/Ú†/g;
s/v/Ú¤/g;
s/g/Ú¯/g;
s/e/Û€/g;
s/--/Ù€/g;
s/-/â€/g;
s/aN/Ù‹/g;
s/uN/ÙŒ/g;
s/iN/Ù/g;
s/a\*\*/Ù“/g;
s/a\*/Ù°/g;
s/a/ÙŽ/g;
s/u/Ù/g;
s/i/Ù/g;
s/\+/Ù‘/g;
s/o/Ù’/g;
s/\\([0-9â€¢]+)Â§/"\\".&amp;decode($1)/ge;
print;
}</pre></body></html>