while (<IN>) {
  chomp;
  $_ =~ s/://g;
  print OUT $_ ."\n";
}