#!/usr/bin/perl

print "Let's start! \n";
print question();
chomp($input=<STDIN>);
print answer();

sub question {
	@array_q = `cat quiz.txt | grep ?`;
	foreach(@array_q){print $array_q[0]
	}
}

sub answer {
	$/ = -00;
	@array_a = `cat quiz.txt | grep -v ?`;
	foreach(@array_a){print $array_a[0]
	}
}
bash-3.2$ ./quiz.pl
Let's start!
Name 2 shapes?
Name 2 shapes?
Name 2 shapes?
sadf
square
circle

North America

Neil Armstrong
bash-3.2$