For U2 fans. This one definately won't compile, and I took some liberties with $_. Improvements welcome.

use Band::U2;

## Who is this person they sing of?

undef($_);

# See the stone set in your eyes

@{ $_ } = map('stone', @{ $_->{"eyes"} }); 

# See the thorn twist in your side

push @{ $_ }, "thorn"; 

# I wait for you

sleep unless $_;

# Slieght of hand and twist of fate

$hand->slieght($self) && $fate->twist($self);

# On a bed of nails she makes me wait

if ($_) { bed($self, 'nails') && sleep; }

# And I wait without you

sleep && undef($_);

# With or without you x2
# I can't live
# With or without you

undef ($self->{"live"}) if ( $_ || !$_ );

# Through the storm we reach the shore

@shore = storm($self, $_);

# You give it all but I want more

while ($self->{"want"} > $_) { ($_)--; }

# And I'm wating for you

sleep unless $_;

# With or without you x2
# I can't live
# With or without you

undef ($self->("live")) if ( $_ || !$_ );


# And you give yourself away x2
# And you give x2
# And you give yourself away

while ($_ > 0) { ($_)--; }

# My hands are tied
# My body bruised, she's got me with
# Nothing to win 
# And nothing left to lose

tied $self->("hands");
bruised($self->("body")); 

if ($_) { undef($self->{"win"}) && undef($self->{"lose"}); }

# And you give yourself away x2
# And you give x2
# And you give yourself away

while ($_ > 0) { ($_)--; }

# With or without you x2
# I can't live
# With or without you

undef ($self->("live")) if ( $_ || !$_ );

## This part was only in their live version of the song
## I took "we'll" to mean "all people".

# And we'll shine like stars in the summer night
# We'll shine like stars in the winter night
# One heart
# One hope
# One love

foreach $person (@all) { 
    shine('Winter Night', $person);
    shine('Summer Night', $person):
}

$heart = join(' ', @all)
$hope  = join(' ', @all)
$love  = join(' ', @all)


# With or without you x2
# I can't live
# With or without you

undef ($self->("live")) if ( $_ || !$_ );

[download]



<-> In general, we find that those who disparage a given operating system, language, or philosophy have never had to use it in practice. <->

In reply to With Or Without You by ibanix

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.