Select Code to Download

define {
    destination = "/u90/gvc_archive/new";
...
    regex  = /P\d+_(PRI|SEC|TPP)_.*?\.(\d{4})\.ama/;
    dfield = "$2";
}

#!/usr/local/bin/perl -w
# test parser prior to plugging into larger script
...
    }
    } if $check;
}

class: macro
type: rtcd_everything
...

var: regex and rval: /^USL.*?$/
var: dfield and rval: NULL