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