Select Code to Download

#! perl -w
$rc=is_well_formed ("<memo>
...
    return 1;

}

Identifier (?-xism:[:_A-Za-z][:A-Za-z0-9\-\._]*)
optsp (?-xism:\s*)
...
Inside Loop
Inside Loop
success