# about love and war - sad but true...
@war = split(/ /, 'two houses');
$lovers = join('love', $romeo, $julliet);
END { sleep $julliet && die $romeo && die $julliet }
[download]

It's not a direct translation becouse (1) I don't have a book near here and (2) even if I had, it would be written in my native language, so maybe another time ;-)

Greetz, Tom.