#!/usr/bin/perl -w
use strict;
use Date::Calc qw(Month_to_Text Decode_Month);

sub mangle_dates {
  my $date = shift;
  if ( $date =~ /-/ ) { 
    # we received a date with '-' in it, assume "YYYY-MM-DD" format
    my ($year,$month,$day) = split (/-/,$date);
    my $string = sprintf("%s %04d", Month_to_Text($month), $year);
    print "'$date' converted to '$string'\n";
    return $string;
  } elsif ($date =~ / /) {
    my ($month,$year) = split (/ /,$date);
    # we received a date with ' ' in it, assume "MMM YYYY" format
    my $string = sprintf("%04d-%02d-00", $year, Decode_Month($month), );
    print "'$date' converted to '$string'\n";
    return $string;
  }    
}

&mangle_dates("1999-05-15");
&mangle_dates("March 1925");