#!perl -pla
s/.. ?/$F[rand 3]/eguntil/(.)\1(.)\2/