Select Code to Download

sub a {
  print @_, "\n";
...
    exit();
  }
}

$Q{a}="golfer";

#         1         2         3         4         5         6         
+7         8         9        10        11
#123456789_123456789_123456789_123456789_123456789_123456789_123456789
+_123456789_123456789_123456789_123456789_1234567
...

# Was
#{*q=*Q;*q=$q{a$q{q}}while$q{q};$q{0}{a}=$q{a},$q{1}{a}=t,$q{q}=i($q{a
+},$q{1}{a})if!a"Is your animal a $q{a}?";w&&redo}