(my ($d1, $d2, $d3, $d4, $d5, $d6) = $_) = m/$regex/;

##</code><code>##

my ($d1, $d2, $d3, $d4, $d5, $d6) = /$regex/;

##</code><code>##

my ($d1, $d2, $d3, $d4, $d5, $d6) = $_ =~ /$regex/;