$_ = 'a ' x 1000;
  s/(\s+)$//; # Slower
  s/(\s+$)//; # Faster