#a weekend in
PARIS:

$ing='a '.$ong;@the_love=('will fly');
unshift @the_love,'and I may ';#cry
$the_love[1]=~s/will/too/; #be mine again
@so=unpack('his',$ong);'today'; #a
$ong='to '.$ing; #when you and I
goto PARIS if $so[0]!~m/elancholic|4/; #then
print @the_love;
[download]

output: and I may too fly

how it should be read:
sing a song; the love will fly
unshift the love and I may cry
the love will too be mine again
so unpack his song today; a
song to sing when you and I
go to Paris if so melancholic; then
print the love
<then the output acts as the last line>

the code is less than elegant, yes, but it's my first poem XD