RosettaCodeData/Task/Inverted-syntax/Perl-6/inverted-syntax-8.pl6

my $answer;
repeat {
    $answer = prompt "Gimme an answer: ";
} until $answer ~~ 42;