Select Code to Download

my @array = (
   'Hibbs'
...
  ,'Schwartz'
  ,'Vroom'
);

my $string =
   'this is a very long string that has a certain number '
  .$number
  .' of segments.'
  ."\n";