Select Code to Download

foreach $old(<DATA>) { ... }

my %month_number;
@month_number{qw/Jan Feb Mar Apr May ... Dec/} = (0 .. 11);

print $month_number{Jan};
# 0

use DateTime;
use DateTime::Format::Strptime;
...
Fri Mar 11 17:09:38 EST 2005 : Depth is : 265
Sat Mar 12 07:07:27 EST 2005 : Depth is : 1654
Sat Mar 26 07:07:27 EST 2005 : Depth is : 1654