use strict;
use warnings;
use File::Slurp qw/read_file write_file/;

write_file 'rij1.txt', map s/^(\S+) (\S+ )/"$1 $2" . ' ' x 39/er,
  read_file 'rij1.txt';