### <Perl6>

$source =~ / $day:=(\d<1,2>) <[-/]> (\d<1,2>) <[-/]> (\d<2,4>) /;

### </Perl6>