#!/usr/bin/perl
#this script will never work!
open(F,$0);while(<F>){$a=$1 if(m#^\#([^!].*)#)}close(F);$t='2A0D0A0100120B030B080F52570707064C4E031502074505';$m=',....,.,.,,.,.,..,.,,,.,';while($t){($b,$t)=($t=~/(.{2})(.*)/g);push @trans,hex($b);}@m=map{($_ eq'.')?1:0}split //,$m;foreach(split(//,substr($a,0,24))){print chr(ord()+(shift(@trans)*((shift(@m)==1)?1:-1)));}