perl -we 'for (qw"14/3 03-14") { m"^(?:(\d\d)-(\d\d)|(\d{1,2})/(\d{1,2}))$" or die; my $m = $1||$4; my $d = $2||$3; print "$_ => month=$m, day=$d.\n"; }'