Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

I Love You (Sarah Mclachlan)

by dystrophy (Monk)
on Oct 01, 2002 at 05:23 UTC ( [id://201926]=poem: print w/replies, xml ) Need Help??

My first poetry - I Love You by Sarah Mclachlan
use strict; my ($I,$me) = 'have a '; my $smile = 'stretched from ear to ear' ; my $you = 'walking down the road '; $I = 'see you '.$you; my ($we, $us) = 'meet at the lights'; $I = 'stare '; my $while = 1; for ($while == 1) { while ($while) { my $world; $world = $world.$me.$world; undef $world; undef $us; undef $while; } } $you and $I ; my $island = $you.$I and 'hope'; my $mile = 5280x' '; $island =~ s/ /$mile/g if ( $you.1x'breath'.$me ); if ( defined $us ) { $you = $me.$you.$me ; my %sea = ( to => "your shore"); $you = seek 'calm', $me, 0 ; } if ( 'every' and time and $I eq 'close to '.$you ) { print 9999x"I love you!!! "; } else { $you = 'walk away '; } # remember to uncomment before running # print 'I love you! '; my $night = 9999; while ($night) { my $cold+= $night-- if (! defined $us); $I = &grieve; } sub grieve { my $strength = 0; print 'I need you so' if ( $strength ); }
- dystrophy -

Replies are listed 'Best First'.
Re: I Love You (Sarah Mclachlan)
by LAI (Hermit) on Oct 08, 2002 at 17:47 UTC
    # remember to uncomment before running # print 'I love you! ';

    Nice touch.
    (++)


    LAI
    :eof

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: poem [id://201926]
Approved by valdez
Front-paged by jarich
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others musing on the Monastery: (3)
As of 2025-06-16 01:49 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuliAnonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.