Here is a solution with Regexp::Common: 
use strict;
use warnings;

use Regexp::Common qw(time);

my $DATE = $RE{time}{mdy4}{-keep};

my @dates = qw(
               01/02/2006
               1/2/2006
               11/22/2006
               12/1/2006
               13/1/2006
               2/35/2006
               1/2/06
               );

for my $date (@dates) {
    my ($whole, $mon, $day, $year) = $date =~ $DATE;
    if (defined $whole) {
        printf
            "%10s => (%2s, %2s, %s) => (%02d, %02d, %d)\n",
            $whole,
            $mon, $day, $year,
            $mon, $day, $year,
            ;
    }
    else {
        printf "%10s => No match\n", $date;
    }
}

[download]
which prints: 
01/02/2006 => (01, 02, 2006) => (01, 02, 2006)
  1/2/2006 => ( 1,  2, 2006) => (01, 02, 2006)
11/22/2006 => (11, 22, 2006) => (11, 22, 2006)
 12/1/2006 => (12,  1, 2006) => (12, 01, 2006)
 13/1/2006 => No match
 2/35/2006 => No match
    1/2/06 => No match

[download]
Hope this helps.

Update: Added <readmore>

In reply to Re: Matching Date by fenLisesi
in thread Matching Date by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.