Select Code to Download

while (<FILE>) {
   if (/.../) { 
     ... 
   }
}

my $stuff;

...
      $stuff = $1;
   }
}

eval "\$$stuff{$1} = $2";