#!/usr/bin/perl

use Existence;
use Vehicle::Human qw(@lifetime &Incarnate);
use HeartFelt::Caution;

my @HeartsDesires = ('Intellectual', 'Emotional', 'Empathetic', 'Coder', 'Writer', 'Philosopher', 'Scientist', 'Spiritual');
my @Interests = ('Computers', 'Philosophy', 'Physics', 'Cognitive Science', 'Algorithms', 'Movies', 'Cuddling', 'Kissing');


for each $moment (@lifetime){

	if( defined($female) ){
			
		$ThingsInCommon = 0;
		$Hopes = 0;	
	
		if( open(FEMALE, "<$female") ){

			while($chat = <FEMALE>){
			
				foreach $interest (@interests){
					
					if( $chat =~ m/$interest/){
					
						$ThingsInCommon ++;
					}
				}

				foreach $desire (@HeartsDesires){

					if( $chat =~ m/$desire/ ){

						$Hopes++;
					}
				}
			}
			
			if ( $ThingsInCommon > 5 ){

				if ( $Hopes == 8 ){
					
					$FoundLove++;
					while( BiDirectionalInterest == TRUE) {

						enjoy_time(FEMALE);
					}

				} else {
	
					dash($Hopes);
					close(FEMALE);
				
				}	
						
			} else {

					close(FEMALE);
			}	
		}
	}			
}

if($FoundLove){
	
	die "Content\n";

} else {

	die $! ;
}