Select Code to Download

my ($TNAME, $TVALU, $TFILE, $REGEX, $REST);
if ($RECORD =~ m/^([^:]+):([^:]+):([^:]+):(.+):([^:]+):$/) {
...
  $TFILE = $3;
  $REGEX = $4;
  $REST  = $5;