#!/usr/bin/perl;

use strict;
use warnings;

my @grid = (
    [qw(P P B R B)],    
    [qw(P R B B B)],    
    [qw(B R R R B)],    
    [qw(B R R R B)],    
    [qw(B G G B B)],
);

$" = '';

my @new;
# pass 1
for my $row(0..$#grid) {
    my $last = $grid[$row][0];
    push @{$new[$row*2]}, $grid[$row][0];
    for my $pt(0..$#{$grid[$row]}) {
        next if $pt == 0;
        if ( $grid[$row][$pt] eq $last ) {
            push @{$new[$row*2]}, (' ', $grid[$row][$pt]);
        }
        else {
            push @{$new[$row*2]}, ('|', $grid[$row][$pt]);
            $last = $grid[$row][$pt];
        }
      last if $pt == $#{$grid[$row]};
    }
  last if $row == $#grid;
    my $width = $#{$grid[$row]};
    $new[$row*2+1] = [(' ') x ($width * 2 + 1)];
}

# pass 2
for ( my $row=2; $row < @new; $row+=2 ) {
    for ( my $pt=0; $pt < @{$new[$row]}; $pt +=2 ) {
        if ( $new[$row][$pt] eq  $new[$row-2][$pt] ) {
            $new[$row-1][$pt] = ' ';
        }
        else  {
            $new[$row-1][$pt] = '-';
        }
    }
}

# find the corners
for ( my $row=1; $row < @new; $row+=2 ) {
    for ( my $pt=1; $pt < @{$new[$row]}; $pt +=2 ) {
        # do we have corners ?
        if ( $new[$row][$pt-1].$new[$row-1][$pt] eq '-|' or
             $new[$row][$pt-1].$new[$row+1][$pt] eq '-|' or
             $new[$row][$pt+1].$new[$row-1][$pt] eq '-|' or
             $new[$row][$pt+1].$new[$row+1][$pt] eq '-|' ) 
        {
             $new[$row][$pt] = '+';
        }
    }
}

# final pass to complete now we have corners
for ( my $row=1; $row < @new; $row+=2 ) {
    for ( my $pt=1; $pt < @{$new[$row]}; $pt +=2 ) {
        if ( $new[$row][$pt-1].$new[$row][$pt].$new[$row][$pt+1] eq '- -' ) { 
             $new[$row][$pt] = '-';
        }
        elsif (  $new[$row-1][$pt].$new[$row][$pt].$new[$row+1][$pt] eq '| |' ) {
             $new[$row][$pt] = '|';
        }
    }
}

print 'Wanted:

P P|B|R|B
 +-+ +-+
P|R|B B B
-+ +---+
B|R R R|B
 |     |
B|R R R|B
 +---+-+
B|G G|B B

Got:

'; 
print "@$_\n" for @new;