$_ = 'x'; if (($a,$b) = m/(.)(.)/) { }