sub chomp_all {
  my ($var) = @_;
  1 while chomp($var);
  return $var;
}