Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
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 browsing the Monastery: (8)
As of 2024-03-28 11:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found