while(<DATA>){
  s/(.+)\+(.+)/$1$2/g;
  print $_;
}