Select Code to Download

$_ = 'in scalar context' x 3;
print $_,$/;
...
while(/in scalar context/g){
    print $a++,$/;
}