Select Code to Download

#!/usr/bin/perl

...
    /\G./gcs ? $& :
    return $answer while 1;
  }

before
[% 
...
[% outside %]

after