> while ($text =~ m/$pattern/) {
Most likely wanted a g on that - or else you could end up with an infinite
loop depending upon your swap.
Also - just wondering - how long has @- been supported - and does it incur any
penalties. (Guess I could look this up myself).
Paul Seamons