Pregnancy Perl Poem

I made some changes to make it compile. original:

bind `man woman`;
sin, push until pop;
chomp our $umbilical_cord;
[download]

new:

connect $me, $you; sin;
local $anesthetic while $painful;
push @{'%#@^@$!'} until pop @kid;
chop my $umbilical_cord;
bless our $family
[download]

Comment on Pregnancy Perl Poem Select or Download Code

Replies are listed 'Best First'.
Re: Pregnancy Perl Poem by zentara (Cardinal) on Feb 22, 2007 at 12:19 UTC
Once again, Spring is in the air, and we start our yearly dose of procreation poems. Why "sin" ? Shift might be better. :-) I'm not really a human, but I play one on earth. Cogito ergo sum a bum	[reply]
Re: Pregnancy Perl Poem by karhu (Novice) on Feb 22, 2007 at 17:21 UTC
Oops, meant to type 'chop'. And the first line is invalid anyway...bind takes 2. Oh well.	[reply]
Re^2: Pregnancy Perl Poem by ikegami (Patriarch) on Feb 22, 2007 at 18:13 UTC
`push` requires more arguments as well. And by the way, longest labor ever... the loop even returns!	[reply] [d/l]