Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

The romantic

by Q*bert (Sexton)
on Jun 24, 2000 at 00:12 UTC ( [id://19655]=note: print w/replies, xml ) Need Help??


in reply to The YAPC Quest

#!/usr/bin/perl -c #Copyright Quinn Weaver, 2000 #Distribute under the terms of the Artistic License #I know it may be a little late for this to help vroom, but... use your_senses; $i->hunger; for (;$your;) { sensibility(); } use faith; $i; require sincerity; use intuition; $i->can ('feel'), $you, seek MY, $secret, $heart; open YOUR_LOVELY, 'eyes'; do 'it'; $please; study (my $face); sort ('out', 'your', 'feelings'); open YOUR, 'heart' x 2 . 'me' and listen $to, $me; do ''; not exit() and close $this; 'chapter'; [ before ('it_could_begi +n') ]; do ''; not use $me 'cruelly' and throw ($me, 'away'); do ''; not split /open/, my @heart and spill (my $love, 'unheeded', on ('the cold ground')); foreach $night (@I_dream) { of_you(); [ $I, bind (my $wounds, $but) ]; $I->feel (my $heart); break(); WITHOUT: 'you'; $I; die 'in a lonely' . crypt('only', 2); return 'the next day,'. 'aching'; for ($you;;){}} while (we_are_apart(), my $darling) { $I->can ('think'); [ 'only', of +($you) ]; } SO: join @me; bless ($me, $with); [ 'your_caress', my $limpid_angel ] +; accept (my $love, $this); time(); @least; tell $me; $you->will ('stay', 'with', $me, 'tonight'); join /body/, ('soul', 'and', 'mind', $in, $sacred, $bliss); come(); for ($me;;) { my $darling; come(); } until ($you, select ME) {$I;} WILL: {still();} continue { to_wait(); $alone; }

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://19655]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (8)
As of 2024-03-28 09:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found