DB<11> $a="x \n \n \n "

  DB<12> $a =~ s/\s+$//

  DB<13> x $a
0  'x'
  DB<14>