Бесконечная петля в Perl

Есть ли способ сделать это, не получая бесконечный цикл?

while((my $var) = $string =~ /regexline(.+?)end/g) {
    print $var;
}

Это приводит к бесконечному петле, вероятно, потому что назначение VAR напрямую От регеляции внутри во время возвращения «True» каждый раз?

Я знаю, что могу сделать это:

while($string =~ /regexline(.+?)end/g) {
     my $var = $1;      
     print $var;
}

Но я надеялся, что смогу сэкономить линию. Есть ли модификатор Regex, который я могу использовать или что-то в этом роде?

(Кроме того, что это на самом деле называется это обозначение / трюк, если я хочу искать его:

(my $var) = $string =~ /regex/;

!!

-121 1156199-

У меня очень удача с графом и смогли сделать почти почти каждый График, который мне нужен. Я пытаюсь дублировать это:

http://en.wikipedia.org/wiki/file:ics_structure.png

как я могу. Нижняя часть этого графика все потоки сверху вниз, и я получил, что работает нормально. То, что я не смог сделать, это размещать первые 3 детей прямо ниже «Командующий инцидентами». Они ветряные левые и правы. Кроме того, обратите внимание, как края совместно используются в топ-8 узлах. Это возможно с точкой? Я могу справиться со всем остальные, но не те верхние узлы. Может ли кто-нибудь дать мне ключ, чтобы решить это?