my @answers = ();
open(my $file, "quiz4.txt");
while (my $line = <$file>)
{
    if ($line =~ /\A\*/)
    {
        $line = substr($line, 1);
        $answer = substr($line,0);
        push(@answers, $answer);
    }
}