DouKaku?

use strict;
use warnings;

sub swap {
    @_[0, 1] = @_[1, 0];
}

sub amida {
    my $str = shift;
    my @lines = split /\n/, $str;
    my @header = split //, shift @lines;

    print join '', @header, "\n";

    for (@lines) {
        print $_, "\n";
        while (/-/g) {
            swap($header[pos() - 2], $header[pos]);
        }
    }

    print join '', @header, "\n";
}

my $data = do { local $/; <DATA> };
amida($data);

__DATA__
A B C D E
| | |-| |
|-| | |-|
| |-| |-|
|-| |-| |
|-| | | |