while (s/\s*$RE$//) {}

##</code><code>##

s/(\s*$RE)*$//;