The funny part is, you're using g in m// while you only need to check once, and you're not using g in s/// when you want all occurances swapped.

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.