sub no_reference {
    $_[0] =~ s/o/O/g;
}

$string = 'Bozo is a clown';
no_reference($string);
print $string, "\n";