rule statement_control:while {\
    <sym>
    [ <?before '(' [[my]? '$'\w+ '=']? '<' '$'?\w+ '>' ')'>   #'
        <.panic: "This appears to be Perl 5 code"> ]?
    <EXPR>                             {*}                      #= expr
    <pblock>                           {*}                      #= block
    {*}
}