#!/usr/bin/perl
########################################################################
#
# $Id: helloworld.pl,v 1.1 2005/08/30 13:03:16 gosha Exp $
#
# Copyright (C) 2005 Okunev Igor gosha@xxxxxxxx.ru
#
########################################################################
$SIG{__WARN__} = sub { print $^L . substr($_[0], $|, 11) . $" . '!' . $/ };

s[!<.|=?"=><|{][1234567890ab] or srand if ( %SIG, 9, 20/2 | s[/<,$|>] [_warn_] | $^F ) [int rand 3];

seek DATA,(eval<DATA>)*1,$?;$/.=$/;s;;(<DATA>)[1];e;s;[\w\s];;g;y; -/:-@[-`{-};`-{/" -;;s;;"$_\",$.,".($=/$.-9);see;
__DATA__