no warnings 'experimental';
use feature 'isa';

package Perl::Hacker;

sub born { my $class = shift; return bless {}, $class }

DESTROY {
    my $self = shift;
    print "Remember hacker that you are Hash and unto Hash you shall r
+eturn\n";
}
package main;

my $hacker = Perl::Hacker->born();

print "JAPH\n" if $hacker isa Perl::Hacker;
# long and fruitful 100 years life of happy hacking..
$hacker = {};
[download]

L*

use strict;#10
use warnings;#32

package Cat;#32 
sub new { my $class = shift; return bless {@_}, $class }#32
sub feed{ my $me = shift; $me->{last_meal} = shift}#32

package Person;#32
sub new { my $class = shift; return bless {@_}, $class }#32

package main;#32

my $cat = Cat->new(#32
     colors => [ qw(green black white) ],#32 
     house => 'wilderness',#82 
     attitude => 'brave',#73
     eyesight => 'keen',#80
     PID => undef ,#32
);#32
            
my $person = Person->new(#00 
     attitude => 'compassionate',#00 
     house    => 'wonderful',#00 
);#00 
                   #0                             #0 
                    #00                         #00 
                     #00#00                   #00#00 
                     #00 #00                 #00 #00 
                     #00 #00#32    ####     #10#32#49 
                     #55 #32 #65 #117 #103 #32 #50 #48 
                    #48 #54 #32 #45 #32 #51 #49 #32##74 
                   #97 #110 #32 #50 #48 #50 #53 #10##32 
                   #32 #32      #32#32#32     #32#32#32 
                    #32 ##32    #47#92#95   #47 #92#10 
        #           #32 ##32 #32  #32 #32 #32 #32# #32             #
            #       #32 #32 #40 #32 #111 #32 #111 #32         #
                #    #41 #10#32#32      #32 ##32 #32     #
                    # #32 #32 # #32    #32 #32 ##62 #
          #  #  #  #   #61 #95 # #89 #95 #61#60#10 #   #    #    #  #
                      #  #32 #32 #32 #32 #32 #32 #
                    #     #32 #32# #32 #32 #32 #    #
                #            #32 ##96 #### #45             #
            #                     #39 #10                          #
                                          
my $three_months = 60 * 60 * 24 * 90;
# sleep $three_months;
$cat->{ age }+= $three_months;
$cat->{ house } = \$person->{house};
$cat->{ name } = 'Miki';
$cat->{ best_meal } = 'anchovies';
$cat->{ feeling } = 'good';
            
my $eighteen_years = 60 * 60 * 24 * 12 * 18;        
# sleep $eighteen_years;
$cat->{ age }+= $eighteen_years;
$cat->{ kidneys } = 'failing';
            
my $other_three_months = 60 * 60 * 24 * 90;         
# sleep $other_three_months;
$cat->{ age }+= $other_three_months;
$cat->{ eyesight } = 'blind';
$cat->{ feeling } = 'suffering';
             
if ( $cat->{ feeling } ne 'good' and $person->{ attitude } eq 'compass
+ionate' ){
    $cat->feed('anchovies');
    $0 = $cat->{ name };
    kill 'KILL', $cat->{ PID } if $cat->{ PID };
    undef $cat;    
}
END{seek DATA, 0,0;
   while(<DATA>){
                  print chr($_) for /#(\d{2,3})/g;
                  print $0 if $. == 21;        
  }
}
__DATA__
 meow!
[download]

use strict;#10 #32 #32 #32 #32 #32 #32 #32 #32 
use warnings;#32 #32 #82
package Cat;#73 
sub new { my $class = shift; return bless {@_}, $class }#80
sub feed{ my $me = shift; $me->{last_meal} = shift}#32
package Person;#10
sub new { my $class = shift; return bless {@_}, $class }#32
#49
package main;#55
#32
my $cat = Cat->new(#65 
                    colors => [ qw(green white) ],#117
                    age => 0,#103
                    house => 'wilderness',#32
                    attitude => 'brave',#50
                    eyesight => 'keen',#48
                    PID => undef ,#48
);#54
            #32
my $person = Person->new( #45
                            attitude => 'compassionate',#32
                            house    => 'wonderful',#51
);#49
            #32
my $three_months = 60 * 60 * 24 * 90;#74
# sleep $three_months;#97
$cat->{ age }+= $three_months;#110 
$cat->{ house } = \$person->{house};#32
$cat->{ name } = 'Miki';#50
$cat->{ best_meal } = 'anchovies';#48
$cat->{ feeling } = 'good';#50
            #53 #10
my $eighteen_years = 60 * 60 * 24 * 12 * 18;#32
            #32 #32 #32 #32 #32 #32 #32 #32 #32 #32
# sleep $eighteen_years;
$cat->{ age }+= $eighteen_years;#47
$cat->{ kidneys } = 'failing';
            #92 #95 #47 #92 #10 
my $other_three_months = 60 * 60 * 24 * 90;
            #32 #32 #32 #32 #32 #32 #32 #32 #32 #32 
# sleep $other_three_months;
$cat->{ age }+= $other_three_months;
            #40 #32 #111 #32 #111 #32 #41 #10
$cat->{ eyesight } = 'blind';
            #32 #32 #32 #32 #32 #32 #32 #32 #32 #32 
$cat->{ feeling } = 'suffering';
            #62 #61 #95 #89 #95 #61 #60 #10 
if ( $cat->{ feeling } ne 'good' and $person->{ attitude } eq 'compass
+ionate' ){
            #32 #32 #32 #32 #32 #32 #32 #32 #32 #32 
    $cat->feed('anchovies');
            #32 #32 #96 #45 #39 #10
    $0 = $cat->{ name };
    kill 'KILL', $cat->{ PID } if $cat->{ PID };
    undef $cat;    
}
END{ seek DATA, 0,0;
while (<DATA>){
        print chr($_) for /#(\d{2,3})/g;
        print $0 if $. == 5;
        
    }
}
__DATA__
 meow!
[download]

L*

Dont dash my hopes cannonizing me with a smash,
no rash on my back for your downvoting lash.
Stash your whip! Fill the cannon with perl hash.

Dont drive me to ash if I'm not able in bash,
come back to your root slash, dont let me crash,
dont thrash me if in my cache I love The Clash.

Brashly canonize me instead, an upvoting flash,
a new sash on my shoulders would not harsh :)
[download]

L*

You gained 14 experience points.
It's the best we could do on such short notice.
Congratulations, you have been promoted to Canon!
You have 8000 points until level 21 - Chancellor.

Perl, oh Perl, you're a language so fine,
With syntax so strange, and modules so divine,
From regex to arrays, you're a tool of great power,
And with CPAN by your side, you can work by the hour.

Oh Perl, how you make my code so succinct,
With hashes and subroutines, my programs can link,
You handle data so well, from strings to files,
And with OOP, you make my code miles.

You're not just a language, but a culture so rich,
With a community of users, who all make the pitch,
Of the beauty of Perl, in all its great forms,
From CGI to Mojolicious, we weather all storms.

So here's to you Perl, our language so dear,
We'll code on and on, without any fear,
With a love for the craft, and a love for the art,
We'll make our code shine, with all of our heart.
[download]

(ai.com)

In conjunction with my final meditation, I give you the return of The Drunken Poet. Written in the "Weird Al Song Parody" style to be sung to the music of Garth Brooks' "Friends in Low Places". For those non-Americans, or for those who simply hate country music, forgive me... I'm from the Midwest in the USA. :-)

【每日科技】商界大佬金句频出 微信内测黄金红包

I blame it all on these kooks,
with their pink-hued rat books.
They've ruined my Perl love affair.

As they all crow,
I tell you this really blows.
I'm the last one to hold out and care.

And imagine my cries
as the world fell for their lies.
On my face is written the pain.

And they boasted too,
said, "ha, ha now you are screwed,"
and I'll never cease to complain!

But I've got friends in Perl spaces
where the $igils lead
and the postfix chases extra lines away.
@will_miss_it = $every_day->@*;

Yeah, I'm not big on syntax white spaces.
Their monotonous code is causing brain stasis!
Oh, I'll miss my friends in Perl Spaces!

Well, I guess I was wrong.
Python zeal is too strong.
It's past time I acknowledge the score.

I put up a good fight,
not gently in to the night,
but now I'm knocked out on the floor.

It's almost obscene
the snake cult followers gleaned,
and I can't escape it again.

They say that I
have to submit to their power,
no, I just can't win!

But I've got friends in Perl spaces
where the $igils lead
and the postfix chases extra lines away.
@will_miss_it = $every_day->@*;

Yeah, I'm not big on syntax white spaces.
Their monotonous code is causing brain stasis!
Oh, I'll miss my friends in Perl Spaces!

I'll miss my friends in Perl spaces
where the $igils lead
and the postfix chases extra lines away.
@will_miss_it = $every_day->@*;

Yeah, I'm not big on syntax white spaces
Their monotonous code is causing brain stasis
Oh, I'll miss my friends in Perl Spaces!

I'll miss my friends in Perl spaces
where the $igils lead
and the postfix chases extra lines away.
@will_miss_it = $every_day->@*;

Yeah, I'm not big on syntax white spaces
Their monotonous code is causing brain stasis
Oh, I'll miss my friends in Perl Spaces!

Yeah, I'll miss my friends in Perl Spaces!

"print" in Perl,

"Hello World!"

Congrats to you,

Although you're new,

First step's taken,

Walls are breakin'

And if you're stuck,

By any luck,

Perl Monks dear,

With advice here,

Shall through your night,

Shine their own light

Your problems solve

Perhaps dissolve!

So do not fear,

'Cause help is near!

So give your odes,

To Perl codes!

Rather underrated,

Sometimes kinda hated,

Perl is a language,

Only causing anguish,

When highly debated.

Nothing happened
Past 1 days
Time to give up the days
as a measure 

i visit this site, about once a year

nostalga burns bright, then fades into fear

same questions posted, like back in the day

chatterbox quiet, not much to say()

life is a cycle, times they move fast

but joy's found looking forward, not in the past

I'm finally content, 2 decades hence

resigned this will __END__, t'was quite the experience

like your favorite module, lastly return true

1; is so boring, end yours "with whatever you want to";

Perlimerick