Select Code to Download

  $date = join( '/', map { int } split( '/', $date ));

  my $foo = join( '-', @foo );
  print join( ',' => @bar ), "\n";