Need match character help

[ToddAndMargo]

Hi All,

This should be a "no".  What am I doing wrong?
$ perl6 -e 'my $x="rd"; if $x~~/<[rc]+[a]+[b]+[.]>/ {say "yes"}else{say 
"no"}'
yes


Many thanks,
-T