naja, mit einer while-schleife. while ($var =~ m/.../g)

allerdings ziemlich ungünstig, auf $1 eine regex loszulassen.
ehe du dichs versiehst, hast du in der regex auch ein capture drin, das dir $1 überschreibt und in der nächsten iteration matcht gar nix mehr.
variablen wie $1 sollten immer möglichst frühzeitig nach dem matchen in einer richtigen variable oder datenstruktur gespeichert werden.