Исходное сообщение
"perl regexp" Отправлено ctax, 06-Фев-07 17:01
Это просто. $perl -e ' $qwe="abcd"; print $1."\n" for $qwe=~/(\w)/g; ' d d d d $qwe=~/(\w)/g вычисляется не постепенно, а сразу, то есть прежде чем начнется выполнение цикла, $1 уже побывает всеми значениями, которые совпадут с регекспом, и поэтому будет в значении последней найденной подстроки.