my ($year, $month, $day) = $date =~ /\A (\d{4}) - (\d\d) - (\d\d) \z/x
+;
[download]

----
I wanted to explore how Perl's closures can be manipulated, and ended up creating an object system by accident.
-- Schemer

Note: All code is untested, unless otherwise stated