() = ($_ = "ABCD") =~ /(..)(..)/;
print "$1, $2\n";
$_ = "WXYZ"; 
print "$1, $2\n";
__END__
AB, CD
WX, YZ