perl6 regex

#!/usr/bin/perl6

say 'alp!;habet' ~~ /
[
    || <alpha>
    || <?after <alpha>> [ <digit> || <punct> ] <?before <alpha>>
] +
/;