if you sprinkle while you tinkle,
be a sweatie, wipe the seatie 
while (tinkle) {$you = '!sweetie' if sprinkle};
$you = 'sweetie' if sprinkle && wipe seatie;

[download]
At least it compiles, but this person seems to spend a long time tinkling...

Replies are listed 'Best First'.
RE: Too much time?
by She-wolf (Sexton) on Aug 31, 2000 at 02:07 UTC
    You have to put a statement in there somewhere relating to how men are more apt to "sprinkle" than women.
    >:)

    She-wolf
    "Wha? I don't get it."

[reply]
      So maybe what it needs is to wrap the contents into a sub routine called poem... and then we can be gender biased ala 
      &poem if $male;

      [download]
      Is that better? ;) Because you are right of course, women don't ought not have this problem... hehe :)

      On second thought I like this better, because the only way you can be a sweetie in the prior version is if you sprinkled and cleaned... 

      $you = 'sweetie' if female;
while (tinkle) {$you = '!sweetie' if sprinkle};
$you = 'sweetie' if sprinkle && wipe seatie;

      [download]
      Now most women are sweeties as they should be, except for the rogue female who manages to... well ya know.
[reply]
[d/l]
[select]

Back to Perl Poetry