Output File

#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use open ':utf8';
use open ':std';
use feature 'say';

open my $in, 'data.txt' or die;
open my $out, '>', 'outfile.txt' or die;
while (<$in>) {
  chomp;
  say $out join ' ', map { $_ / 100 } split;
}
close $out;
close $in;