Select Code to Download

while (<DATA>){
     if ($_ eq "!\n"){ eval $string;$string = '';print "\n";}
...
}
__DATA__
#REPL behavior starts here!