#!/usr/bin/perl
BEGIN{}END{}
$0=~/([^\/]*)$/;$s=' ';
$Tie=$1;$darn='/bin/cat';
$Tie&&(@Map=`$darn $Tie`);$cat="$0p";$sss='[pj]';
@C=map(uc$_,@Map)if
 !grep(s/(.{2}).*/$1/,@C);$Beast=3x3<<3/3;shift@Map;@Dye=@Map;
@Dye<$Tie+1||grep(s/(.{5}).*/$1/,@C);@a=
++$N&&grep($l=chop,@C);grep($_=chop$_,@C),$Op=
$m=755?$Beast-2:$Beast;
@Borrring=grep(lc$_,@
Dye);$Goo=lc shift@Dye;
$N&&&orn(@C);s/SN//;$Goo=~s/\W+/$s$m$s$cat$l$_$l$s\n/;
s///i;
sub orn{$_=join'',@_}
@Com=map($_=reverse,@Dye);
if((7>6)&5){grep($d=chop,@Com);grep($_=chop$_,@Com)}(pop
@Dye);$Goo=~s/$d/$&$l/;($_=
sprintf"F"."%s"x$#Com,@Com)=~s/[\d\Wa-z]//g;
y,FR8RA-YL,|.*.b-z|,,open _;print
_ "76;$l$Goo";close _;system("$darn $cat|sed 's/$sss/$s&/g'");
1&&open(STDERR,">/dev/null");
die *Tie;
