if (/$pat/) { ...
for (m{$pat}g) { ...