in reply to Re4: How do I drop leading zeros from a date like 07/04/2001 to read 7/4/2001??in thread How do I drop leading zeros from a date like 07/04/2001 to read 7/4/2001??
my $foo = join( '-', @foo ); print join +( ',' => @bar ), "\n"; ^^^^^ [download]