while( exists $true{love} ) {
  seek $her, $from, $everywhere;
}