my $input = '123+45';
my $output = '';
for ($input) {
   /\G ( \+ ) /xgc  && do { $output .= " $1 "; redo };
   /\G ( .  ) /xgcs && do { $output .= $1;     redo };
}
print("$output\n");