$_ = "...blah-blah*G-Y*blah-blah... here is another G-Y and-so-on"; print "BEFORE: $_\n"; s/(?<=G)-(?=Y)/ /g; print " AFTER: $_\n";