wenn du nur ein
if (m/.../)
durch ein
while (m/.../)
ersetzt, wird das eine endlosschleife, da die regex immer von vorne anfängt.

in dem fall musst du den modifier g benutzen:
while (m/.../g)
der sorgt dafür, dass diese regex dort weitermacht, wo beim letzten mal das ende des matchs erreicht war.