Select Code to Download

use strict;

...
  no strict 'refs'; # Thanks for the correction, tinita
  print "${qq(string$num)}\n";
}