package main;
my ($v, $c) = (qr/[aeiouy]/i, qr/[bcdfghjklmnpqrstvwxyz]/i);

{
    tie my $foo, 'Constrained', sub {shift=~/^$c$v$v$c$c$/};
    sub foo () :lvalue { $foo }
}