parasplit.pl

#!/usr/bin/perl

# perlsplit.pl input.txt

open(INPUT, $ARGV[0]);
open($dec,">" , "decoder.txt");
open($enc,">" , "encoder.txt");

my @array;
{
  local $/ = '';
    @array = <INPUT>;
}

my $header = 1;
my $section = 'unknown';

foreach(@array) {

        if ($header) {
                chomp;
                $section = $_;
                print $dec "$section";
                print $enc "$section";
        } else {
                my @lines = split('\n', $_);
                foreach(@lines) {
                        print $enc "$_\n";
                        print $dec "$section";

                }
        }

        $header = !$header;

}

close $dec;
close $enc;