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

my %data;
for (1..10000){
    my $str = "boy boy girl boy girl boy girl girl";
    my $l = int(rand(rindex($str,"boy") - 1));
    $str =~ s/^(.{$l}.*?)\bboy\b/$1man/;
    $data{$str}++;
}

print "$_: $data{$_}" for sort keys %data;

##</code><code>##

boy boy girl boy girl man girl girl: 3323
boy boy girl man girl boy girl girl: 4310
boy man girl boy girl boy girl girl: 1881
man boy girl boy girl boy girl girl: 486