Try adding the /g modifier to the regex.

And have a look at
perldoc perlre
preldoc perlrequick
perldoc perlretut
HTH

Yves / DeMerphq
--
When to use Prototypes?
Advanced Sorting - GRT - Guttman Rosler Transform