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

##</code><code>##

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