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

repeat {
    $_ = prompt "Gimme a number: ";
} until /^\d+$/;

repeat until /^\d+$/ {
    $_ = prompt "Gimme a number: ";
}