sub blank2under {
  my $x=shift;
  $x =~ s/ /_/g;
  return $x;
}