#!/usr/bin/perl -- tiny tentacle decoder by Christian Garbs <mitch@cgarbs.de>
while(<>){$_=~/\)(.*)o/;if(defined$1){$_=chr(($1=~y/_//)*11+($1=~y/~//)*7+($1
=~y/-//)*3+($1=~y/=//)*1);}print} # virus free as long as you don't copy it:)