#!/usr/bin/perl
use warnings;
use strict;

while ( <DATA> ) {
    my @x; 
    push @x, $-[ 0 ] while /\+/g;

    substr $_, $x[ @x / 2 ], 1, '';

    print;
    }

__DATA__
+ 5 + 45 +
[download]