@perl = qw[regex algorithm syntax modules fmteyewtk];

while ( @perl != $is_mastered ) {
	open BOOK, '<', $panther or do {
		require Book::Panther;
		next;
	};
	read (BOOK, $knowledge, $attention_span);
	close BOOK;
	
	open BOOK, '<', $owl or do {
		require Book::Owl;
		next;
	};
	read (BOOK, $knowledge, $attention_span);
	close BOOK;

	open SOURCE, '<', $cpan or do {
		require Net:HTTP;
		next;
	};
	read (SOURCE, $knowledge, $attention_span);

	open my $MIND, '>+', Possibility->new() or die();
}