regex loop pl6

#!/usr/bin/env perl6

use v6;
my $one = "hello one two three";

my token wordspace { (\w+\s) }
my token para { (\n ** 2..*) <?before \w> }
my token literal { (^^\s+\w$$) }

say "parsing";
if $one ~~ m/[<para>*||<literal>*||<wordspace>*]+/ {
    say "yes";
}
say "it's over";