in reply to d-mmm-yyyy to DOY (day of year)

Using Time::Piece:
print Time::Piece->strptime($date_str, "%d-%b-%Y")->yday(),"\n";

[download]

In Section Seekers of Perl Wisdom