#!/usr/bin/perl -w use strict; sub z{split(/O/)}$_='0409101911091129120914191439145915091539154915691 +57916291'. '639164916582OFODOEOO0OAOBOEO7O6OCOO3O6OCO9OO1O4O5O8O6OC F;V-T*"(D85LD +7R!N95PB'. '7"(_;V-T*%PB,\'@D7UPB*2LQ.C!=(BD`';m/([^8]*)8(\w*) (.*)/;$_=$1;y/9/O/ +;my@a=z; $_=$2;foreach(z){print chr eval unpack "u*",$3}
In reply to YA first timer by tfrayner
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |