#!/usr/bin/perl --  tiny tentacle encoder by Christian Garbs <mitch@cgarbs.de>
while(<>){while(s/^(.)//s){$a="";$b=ord$1;while($b){$c=(11,7,3,1)[int rand 4];
if($c<=$b){$b-=$c;A:{$a.="_",last A if $c==11;$a.="~",last A if $c==7;$a.="-",
last A if $c==3;$a.="="}}}print")${a}o\n"}} # virus free as long as not copied