Select Code to Download

use Regexp::Common;
my $func_rx = qr{
...
  print "func = $1\n";
  print "param list = $2\n";
}

$code =~ s/$RE{comment}{'C++'}//g;