my ($m, $d, $y) = split /-/;

##</code><code>##

my ($m, $d, $y) = /\d+/g;