Добродушный юродивый пропагандирующий Perl и добро как таковое. Одно из направлений указанной пропаганды - написание новостей на ЛОРе. Надеюсь мои телеги интересны и полезны.
#!/usr/bin/env perl
use English;
format =
.
BEGIN {
open f,"<$0";
s(.*)((<f>)[-1])e;
AUTOLOAD {
$AUTOLOAD=~/(:)\1/;
@ARG = ( $', @_);
!wantarray ? formline(<<pop) : @_;
~^*
@_
pop
}
s/\S{0,}/*{"::\${^MATCH}"}=\&{"::$&"}/eg;
}
END {
write or die;
}
Just Another Perl Hacker