$_ //='' for my ($c, $d, $e, $f) = 'abcd' =~ /(w)(x)(y)(z)/;
print $c, $d, $e, $f;