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