my ($day_of_week, $date, $time) = split ' ', $stamp;
my ($month, $day_of_month, $year) = split '/', $date;
$time =~ s/://g;
my $munged_stamp = "${month}_${day_of_month}_${time}";