#!/usr/bin/perl -wl
use strict;

my @pos;
$_ = 'boy boy girl boy girl boy girl girl';
push @pos, pos() - 3 while /boy/g;
substr $_, $pos[rand @pos], 3, 'man';
print;