#!/bin/perl

use warnings;
no Error;       
#use brain
use diagnostics;








                           sub'saucer{;-0; my 
            $brains or not my $brain;not(($n=ord($c))&0600)and 
                $_[2].=$c or saucer($_,substr($_,($n^0200)
             << 1,2),$_[2])while($c=substr($_[0+1],$brain ++
                  ,1));$_[2];} $brain**2 or eval saucer 
                          $_,/\xff(.*)/s,$brain
                              for join "", 
                                 <DATA> 
                                   




                                __DATA__


  � ����e onti����To��thertoci 
En��nestw are�gonobo.�whlian��orld��s.fr������nu�� �e�has Thprinisofd 
�g� ���esvi�b�fsi���f���voy e������ly�,���zg�ag��t �a��r�ef';�w�exp��e�
�����e.��l���'���It����shg�����a�s���Sp���܆s���⛴��ip�w��l�� ��c���t��
��m��������
���ace,
��������ٸ�����󐈑��ہ��������ǐ����������seek out���e������������
���������
### __________<_+++___Beware_-_of_-_Agent_-_Smith\''s's___+++_>____________
### Happy new year!  
### in Germany we say: Have a good slide! ^




# ////
# About the perl block..
# It's just a data expander, recursively.
# Data is sourced from "DATA", and evaluated.
# Maybe I should add the possiblity to fly around with the saucer, 
# by entering new coordinates for data.
# the most insecure browsing thing of all times - websides are executed,
# not only displayed! ^^
# (Aeh. wait. this rememebers me to something known as "scripted" .... )
# At the moment, entering new coordinates would be possible, you just
# need to - funny enogh - cut some of the data, everything after ascii 0xff is save, which in turn might be somewhere at location 256, you might write something like read( ) ... system ("curl ...)  .. Or you write between the lines in this blurb. Reading and writing between the lines is always the best. Just now I'm wondering, how long a line in perl is allowed to be. and what this coude formatting smith'''s invention is going to do. funny enough again, ai was of some help. Not with coding, but for the hint, just adding an apostroph isn't a bright idea. the joke might be missed. those things are way better than last year. This will become interesting. Ah. 
#
# the concluding .. eval saucer executes the self decompressed code.
# the decompression, funnily enough, isn't 
# that bad. also the compression.
# it's about 50 percent, sometime also more, 70 percent.
# denpends on the input, obviously.
# and it's only usable for ascii texts, 0x20-0x7e
# On the other hand, the decompression thorughput might succeed
# all other bottlenecks, so this isn't that useless.
# just a simple byte pair encoding, anyways.
# 
# Coding means art to me.
# Albite, I don't know what 'art' is.
# Me, my living? this might be about "art", not 'art'.
# I don't know it.
# Quite often I feel more attracted by music, crating
# music of my own.
#
# What's this all about?
#
# Is there a difference, is there a connection?
#
# 
#
#