$date =~ s!^0+!!; # trim leading zeroes $date =~ s!/0+!/!g; # trim zeroes after a /