Select Code to Download

#!/usr/bin/perl

...
    /\G(?=[^)])/gc ? node SEQ => $tree, expr() :
    return $tree while 1;
  }

The Regex: \d{3}[-,.][A-V][a-z]{3}\d{2}

...
The Regex: (ab?c){3}

abcabcac abcacabc abcabcac acacac acacabc abcacac acacac abcacabc abca
+cac abcabcac