in reply to qr expression defined as constant?
Change:
my ($y, $m, $d) = ($s =~ /&{[REGEX]}/)[0, 1, 2]; [download]
To:
my ($y, $m, $d) = ($s =~ REGEX)[0, 1, 2]; [download]