if ( exists $true{love} ) {
  $get_it_while_you_can = 1;
  seek $her, $from, $everywhere;
}
else{
  seek $him, $for, $everything 
    and delete @children{ qw(from fathers life) };
  $him_need_a_lawyer = 1;
}