Select Code to Download

use strict;
use warnings;
...
//gx)
{}
print "$string\n";