open my $in, '<', 'input.txt' or die;
open my $out, '>', 'output.txt' or die;
my $buf;
while (read $in, $buf, 4096) {
  $buf =~ tr/\t/ /;
  print $out $buf;
}
close $_ for ($in, $out);