#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;