подскажите господа!

есть регулярное выражение с двумя сохраняющими группами, можно ли получить их в условии???
если значений множество.
if (@code,@body)=$msg3=~m/^(.*?)^\s(.*?)/g)

или обязательно в цикл ставить, если в цикле то как можно проверить условие выполнения регулярки

Не очень понятно, в чём вопрос (и код только запутывает). Вот три рабочих варианта:

а если поиск глобален?

my (@b, @r) = $foo =~ /(.).(.)/g;
if ($b && $r){
}

Если в списочном присваивании встречается массив, то он забирает в себя все значения до конца, и все переменные правее него будут пустыми. Это особенность перла, которую надо иметь в виду.

Поэтому один вызов m//g вернёт всё в один массив. Если надо разбивать сразу на 2 части - нужен цикл, но можно разбить и после, в духе:

Все примерно понятно! 
а в push можно расшифровать цикл немного по операциям
@{++$i % 2 ? \@first : \@second}, $_ for @foo; 

Значит, не понятно) Лучше тогда так:

Весна!