Select Code to Download

#!c:/perl/bin/perl -w
use strict;
...
    s/\$([^;]+);/\$data{bar}{values}{$1};/g;
  eval $data{bar}{code};
}