Help for this page

Select Code to Download

Select or download this

{
    my $skip = qr/\s*/;
    my $expr = qr/ (?<EXPR>
...
    my $re = qr/^ $expr $skip \z/x;
    sub is_valid { shift =~ /$re/o }
}