Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
replace(qr/\{($nobrackets)\}/, '$1');

print "$_\n";