> Urf! Some people rely on POE working with Perl versions that are > older than /\z/, so I can't use that. I've commented out the s/// > entirely. The fix will be in 0.1701. Thanks again!
OK, in that case how about this: s/(.)\0+$(?!\n)/$1/s or this: s/(.|\n)\0+\Z(?!\n)/$1/ if it's really needed anyway...
