Select Code to Download

my $var = $_ while (<DATA>);