$_         = 'abcdefghijkl';

my ($a,$b) = (/^([a-z]{6})([a-z]{6})$/i)
           ? ($1,$2)
           : (undef)x2;

print "$a, $b\n"  if defined $a;