$x='....welcher perl-code auch immer....';
eval $x;

get ".....", "db";
eval $Feld;