I tried to use proper syntax as much as possible but it doesn't actually execute.

#!/usr/bin/perl
study $science;
open $doors,">","success.txt";
BEGIN aNewLife() and use Hard::Work;
push for(;;){},"a brighter future"; 
do not do $meth;
do not return 2, -e$x-$girlfriend;
shift @yourPerspective;
exit $fear;
[download]

#!/usr/bin/perl
use v5.10;

my $dear; do {exit} and bless $_; 
`make | clear`; say 'I love'; confess;
time: for my$passion(our @love) {
        for($ever;;){last}
        next time;
        my $dove;
[download]

I considered myself as a Junk;
Until here, I met a Monk;
I don't have time for you,I said to a hot girl;
Because now, I am in love with Perl.
                       
                            -Harihar Pai
[download]

perl -MPOSIX -e '$simpsons = sub {$mmmm = floor(atan2(1,1) * 4)};'
[download]

Is it Perl that i like, with the monks are her friends,
Or is it the monks, who use Perl to their ends?

There I sat, my output muddled.
My Perl was lame, and I, befuddled.

My custom sort was sorting not
as it should have, the little snot.

A newline curse, my csv.
That last blank line was taunting me

with warnings, copious and crass.
Uninitialized, MY A$$ !!!

Then Context reared its ugly head
to keep me from my nice warm bed.

Those Operators laughed, connived,
while in my skull the neurons writhed.

A last resort, ere I did slip
into derangement's frightful grip,

I logged in here, and "HELP", did say.
The Monks rode in to save the day !

Happy Monkday!!
You’ve been here 1 thrilling year.

Is it really a whole year since I joined the Monastery? I’m so glad I did, and so very grateful to all the monks whose enthusiasm and dedication make PerlMonks the special place it is.

So this seems like a good opportunity to post a rather long poem I wrote to meet the challenge of finding rhymes for all the monastic levels, from Initiate to Pope.

Enjoy! :-)

Cheers,

Better version than under Re: Need Help in processing a file

use strict; # just kidding
my%hat;my@cat=split/ /,<DATA>;
while(@cat){
  my($cat=>$hat)=splice@cat,0,2;
  $hat{$cat}=$hat>$hat{$cat}?$hat:$hat{$cat};
}
print join" ",%hat; # and that was that
__DATA__
a.txt 4 b.txt 3 z.txt 1 a.txt 5 b.txt 2 b.txt 4 z.txt 2
[download]

The Road goes ever on and on
Down from the door where it began.
Now far ahead the Road has gone,
And I must follow, if I can,
Pursuing it with eager feet,
Until it joins some larger way
Where many paths and errands meet.
And whither then? I cannot say.

     ---Bilbo Baggins
[download]

use EagerFeat;
use constant{
    OnAndOn =>1,
    TRUE    =>1,
};

while ($Road == OnAndOn){
    if ($can){
        $follow = TRUE;
    }
    elsif (join(':', $Road,$larger_way)){
        meet($errands, $paths);
        last;
    }
}

$wither_then? cannot():say();
[download]

Long time using
big, slow, strongly-typed Java,
subject to impenetrable containers -
too many bloated layers of software
slapped too quickly
around Open Source
by multinational companies
run by too many layers of management,
highly paid executives
who listen to the day traders that own the stock today,
and fire the coders who understand the product,
for a more profitable quarter now and pain later,
coders who bitterly give up software careers 
to teach Math or sell flutes.  Really.

Perl was always my scripting language of choice.

Finally...again...those who know answers
are encouraged to share them,
and lastingly enjoy the results of their labors,
and not try to forget.

What a difference.
[download]