in reply to exercise in regex

s{(\d+)/(\d+)/(\d+)}{$1/$2/20$3} unless m{\d+/\d+/20\d+}

----
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

In Section Seekers of Perl Wisdom