Select Code to Download

if($data =~ /(^\.def)[.+]\.\.$/smx){

...
print "This is Macro $data \n";

}

.define get_input
        select key,  key1, key2,
...
           and ed_table.key = 'PRINT'
           and ed_table.user_id = user
..