my $month = $date->printf('%m'); $month =~ s/^0+//g; my $dayofyear = $date->printf('%j'); $dayofyear =~ s/^0+//g; my $dayofmonth = $date->printf('%d'); $dayofmonth =~ s/^0+//g; my $year = $date->printf('%Y');