if ($in_love) 
{ 
	if (!&love) { &pain(1) }
	else { &pain(0) }
}
else 
{ 
	{ &pain(0) }
}

sub pain
{
	$love_in_vain = shift;
	$pain++;
	&pain(1) if $love_in_vain;
}