Help for this page

Select Code to Download


  1. or download this
    my ($m, $d, $y) = split /-/;
  2. or download this
    my ($m, $d, $y) = /\d+/g;