use strict;
    use warnings;
my @files= @ARGV;
   for my $input_file (@files) {

   system "sed -i '0~4 s/\$/\n/g' $input_file";
    
}