Select Code to Download

public void readExternal () {
    ... '}' /* this } is NOT the end as well */
}

use Regexp::Common;

local $_ = join '',<>;
...
        $code .= $1;
}
print "CODE\n$code\n";